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Once upon a time, before the VZ300, it was aot easy to write and play 
games with computers. Back in the dim, dark past, it could cost you $80 to 
$100 an hour just to rent access to a time-shared mainframe via a 
terminal. And the only output you had was on the printout of a noisy, 
hard-to-read teleprinter. Think what those restrictions would have done to 
your current pattern of spending hours lovingly debugging, and improving, 
your latest masterpiece. 

We, fortunately, do not have to suffer such medieval conditions. The 
luxury of having a VZ300 of your own, driving a TV screen, with 
unrestricted access to the machine, allows you to work for as loag as you 
like creating games and other programs. 

In this book, you'll find a collection of my favorite VZ games. I hope 
some of them will soon be up and running on your computer, and are 
stored with your own favorite programs. They’re sure to provide you with 
a lot of fun in the weeks ahead. I’ve tried to produce a set of games which 
will provide varied entertainment, to cater to your game interests, 
whatever they may be. 

I’ve deliberately written the book so that it is “open-ended”. That is, 
in contrast to many other collections of games programs on the market, 
I've assumed you'll want to adapt and improve the programs once you get 
them up and running on your Dick Smith computer. Therefore, with many 
of them I’ve included program breakdowns, some line by line, so you know 
what each section of code is doing. As well, the introduction to each 
section discusses a bit about the philosophy of writing games of that type, 
has a word or two to say about the basic algorithms which you can use to 
create games of that sort yourself, and generally aims to give you a solid 
background against which you can expand and develop your own game- 
writing skills, 

To maximize the length of program you can get into your VZ300 
(and to keep program entry'time down to a minimum) few of the programs 


10 


include instructions. These are in the text. However, if you have the 
inclination you can easily add a “Do you want instructions” line as part of 
the initialization subroutine, and then include a shortened form of the 
instructions from the text in your program. 

Pve followed structured programming techniques in all programs 
which lent themselves to that approach. You may well find, as I did when I 
actually decided to put all the advice I’d read in books and articles into 
action, that working in a “top down” manner made writing and modifying 
programs a much simpler, and more precise, activity than it had been 
before. As a bonus, itis much easier to get a program up and running when 
it's written this way. Most importantly, you can get to the fun parts 
—actually running the thing — much more quickly. 

I think we should get to the fun parts immediately, so turn on your 
VZ300. 

Good game-playing! 


Tim Hartnell, 
Melbourne, 1986 


Down into the depths of darkness you go. Armed with only your com- 
puter, and your keen mind, you have decided to take on the forces of 
evil. ; 

You may be on a desert island, inside a haunted house, within a 
dungeon deep within the bowels of the earth, or trapped in a cave 
system on a planet “somewhere in a galaxy far away.” 

Adventure games take place in all these scenarios, and a thou- 
sand more beside. Come with us now, as we discover the excitement 
of the worlds of ADVENTURE. 


The word adventure is used to describe the class of computer 
games in which the player moves through an alternative reality. In 
this “otherworld” there are monsters to be fought, treasures to be dis- 
covered, maps to be made, and puzzles to be solved. 

Many people feel that adventure games are the most exciting 
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games which can be played with a computer. If you are interested in 
role-playing games like TSR Hobbies’ Dungeons and Dragons (the 
game and name are registered trademarks of TSR), then youre cer- 
tain to enjoy playing adventure. 

One Teste true adventure games is that the reality they 
model is consistent. That is, the world created within the adventure 
program is solid, and—-apart from any events specific to that game, 
such as an earthquake, or a magic spell—the parts of the world do not 
shift in a random fashion. If you walk past a “gnarled and twisted oak, 
with the initials of your best friend carved in the trunk” when going 
down a certain woodland park, the same oak should still be there 
when you return. In a properly constructed adventure the rivers stay 
in place, the dungeon walls do not mysteriously move and shift every 
time you turn your back, and objects you put down in one cave within 
an underground labyrinth do not suddenly appear of their own voli- 
tion a hundred caves away (unless, of course, they’ve been blessed 
with some form of magical auto-transportation). 

Map-making is one of the true adventure-player’s skills and de- 
lights. Working your way through an imaginary (but self-consistent) 
environment, tackling monsters and collecting treasures, solving 
puzzles as you go up and down staircases and chutes, exploring side 
tunnels, getting lost in self-circling mazes, and so on, is only fascinat- 
ing if the world you are exploring is mappable. You should, for exam- 
ple, be able to expect both ends of a tunnel to always emerge in the 
same spots, so when you come across one entrance to that tunnel later 
on in a game from a different position, you will have a new, useful 
clue to further flesh out your map of the environment. 

Role-playing is part of life. There are sure to be many situations 
in your everyday activities when you, to some extent, are forced to 
adopt a role. Most jobs, unfortunately, expect you to behave as if the 
needs and goals of the company were your own needs and goals, that 
the enthusiasm you project each day to customers and fellow-workers 
were your own, inner enthusiasms, and so on. You may well find that, 
in new situations, you have learnt to mask your lack of ease by acting 
confident, and at ease, discovering that—if you do it skillfully—peo- 
ple take the projected role as if it were your true self. 

The role-playing which takes place within the imaginary environ- 
ments of an adventure game is far more interesting, and is generally 
far removed from the self of your everyday life. When you think 
about it, even playing games like “Cops and Robbers” is an exercise 
in role-playing. 

So we’ve all had experience in role-playing, even if some of it 
was not as much fun as taking part in long-range campaigns to rescue 


a handsome prince trapped within a tower. The adventures given in 
this book are by no means as elaborate as some of the ones offered for 
sale for your computer, but they are more carefully and consistently 
organized than many I have seen, and—as a bonus—give you frame- 
works within which you can construct adventure programs of your 
own, 

Role-playing games which involve other people, such as TSR’s 
Dungeons and Dragons which I mentioned earlier, generaily have a 
great deal of flexibility in development as a game proceeds. Under the 
control of a good Dungeon-master, a role-playing game can develop 
and evolve in directions which he or she had not even imagined when 
setting up the initial scenario. Unfortunately, computer role-playing 
games cannot be so flexible. In many ways when playing adventure 
with a computer, you are trying to solve a puzzle, or series of them, 
which the programmer has created, The computer can be used to help 
set up the initial scenario and determine where objects will be located, 
and perhaps where a particular stairwell will lead, but the overall 
shape of the environment is fixed by the programmer when the game 
is written. 

You can see this in action, for example, in our program 
STRONGHOLD OF THE DWARVEN LORDS, where you have to 
work your way through a maze to discover where the Dwarven trea- 
sure is stowed. The computer actually hides the treasure, and modi- 
fies the ‘3-D maze’ to some extent, but that is all. Of course, the 
computer is also used to produce the feedback to the player as the 
game is underway, and its role there is very valuable. 

Once upon a time, war campaigns were reenacted on table tops. 
Napoleonic battles were fought and won on large sheets of card 
marked with rivers and woods, as players reenacted major engage- 
ments within wars, or created their own. Wargamers found the plea- 
sure of the games they played could be increased if attention were 
paid as much (if not more) to the individuals they were fighting with, 
rather than just with squads of soldiers. This attention to individual 
identity lead directly into the role-playing games we have today, as 
gamers discovered how rewarding it was to take on the role of a par- 
ticular leader. 

Our Dungeons and Dragons developed directly from the war 
games where players took on the identities of individuals within bat- 
tles. Two gamers, Dave Arnson and E. Gary Gygax, decided to codify 
an entirely separate reality, which they initially gave to the world in 
1974 as a boxed set of three booklets under the title Dungeons and 
Dragons. The game became an enormous success, and now hundreds 
of thousands of people spend a significant portion of their leisure 
plunging into the depths of the earth, as clerics, trolls, magicians, and 


sorcerers, exploring, fighting, conquering—and occasionally dying 
as they go. 

The original D & D idea soon spawned a host of other games, 
such as Runequest (Chaosium Ltd, Albany, California), Bushido and 
Chivalry & Sorcery (Fantasy Games Unlimited, Roslyn, New York), 
Tunnels & Trolls (Flying Buffalo, Inc., Scottsdale, Arizona), Traveller 
(Game Designers’ Workshop, Bloomington, Illinois) and Heroes of 
Olympus (Task Force Games, Amarillo, Texas), 

Will Crowther and Don Woods entered computer history in 1976 
by putting the world’s first role-playing game-—just called ADVEN- 
TURE—onto a mainframe computer at Stanford University. (The 
program was actually written by Crowther, and elaborated by Woods, 
although today both men are generally credited with developing the 
program.) Although the game quickly became a cult-pursuit all over 
America, the floodgates to computer adventure-gaming did not open 
until microcomputers put machine-power—and computer time—into 
the hands of millions. Cheaper memory enabled extremely elaborate 
adventures to be created, and so now the computer adventure gamer 
is extremely well served. 

Crowther and Woods perhaps created better than they knew. 
Even today, despite the multitude of programs available, the original 
ADVENTURE is still going strong. At least five companies at present 
are selling versions of the original ADVENTURE for the Apple alone. 

This original program was written in Fortran, and when it was 
added to a free software-exchange library (Decus) organized by the 
Digital Equipment Computer Users’ Society (most of whom used 
Dec’s PDP-11 systems), it soon became the most-used program in the 
library. Two years later, another adventure program, DUNGEON, 
was added to Decus. This program, which took the ADVENTURE 
idea much further than Crowther’s program, was written by Tim An- 
derson, Marc Blank, Bruce Daniels, and Dave Lebling, all of the Pro- 
gramming Technology Division of the MIT Laboratory for Computer 
Science, 

One of the leading companies in the world producing adventure 
programs is Adventure International, founded by Scott Adams. His 
company has some of the most imaginative displays at computer 
shows of anyone in the games software field, and it is good to know his 
programs are as exciting as his show displays. Make sure you experi- 
ence the pleasure of playing a Scott Adams adventure program in due 
course, and you'll see how far the genre has been extended. 

I met Scott in Atlanta one day at a computer show and found him 
friendly, quiet, and reserved. Somehow, I’d expected him to be like a 
warlock from one of his dungeons, or a dragon from one of the cave 


systems, However, some behavior was more in keeping with my ex- 
pectations. It was Halloween, and Scott and his crew were all dressed 
to the nines as characters out of some of the programs. The same 
approach to life which had him tell his staff to come to work in fancy 
dress permeates his programs. Start with the programs here, which 
are much simpler to solve than programs such as Scott’s, and then 
graduate to the commercial programs, Perhaps his program Adven- 
tureland would be a good place to begin, before you move on to some 
of his other games, and on to those produced by other companies. 

Avalon Hill’s program Empire of the Over-Mind is another of the 
classics of the field, and this—as well as Sentient Software’s Cyborg 
deserve inspection. The list could go on and on, and certainly new 
titles have been added to the programs now available, so your com- 
puter magazines and/or your local gamer and computer clubs would 
be a good place to find out just what else is around for you and your 
computer. 


I guess it’s time now to introduce you to the adventure programs 
in this book. If you'd like to know more about the field, to help you 
write your own programs, there is a vast body of literature which is of 
interest. It includes: 


“Putting Adventure in Adventure Games,” article in Creative 
Computing, August 1981, by Robert Plamondon. 

“Graphic Adventures on the Atari,” article in Creative Comput- 
ing, August 1982, by John Anderson. 

“Fantasy Games” (parts one and two), articles in Creative Com- 
puting, issues of March 1981 (part one) and May 1981 (part two) by 
David Lubar, 


“Adventure Writing,” this is an immensely valuable 16-page 
booklet, distributed by Aardvark-80, 2352 S. Commerce, Walled 
Lake, MI 48088 [(313) 669-3110] for around $5.00. It explains the 
whole background of adventure game writing, and includes a com- 
plete adventure program, Deathship. If you read nothing else in the 
field, you should get hold of this booklet if you really want to discover 
how to write adventure games. 

Fantasy Role-Playing Games, by J. Eric Holmes (Hippocrene 
Books, Inc., New York, 1981). 

What Is Dungeons and Dragons?, by John Butterfield, Philip 
Parker, and David Honigmann (Penguin Books, New York, 1982). 

Dicing with Dragons: An Introduction to Role-Piaying Games, by 
Ian Livingstone (Routledge & Kegan Paul, London, Melbourne, and 
Henley). 
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| |STRONGHOLD OF 
THE DWARVEN 
LORDS | 


Deep beneath the earth you go, far into the Dwarven Heartland. 
Danger is on every side as you descend, but your greed draws you on. 
Searching through the dusty stacks of uncatalogued manuscripts in 
room 546B of the British Museum, you came across a faded, and 
almost illegible map to a Dwarven hoard of gold, and since that day, 
you have been obsessed with the idea of finding it. 

As you go down into the labyrinth, you realize that the Dwarven 
Lords, who secreted the gold here 7389 years ago, have long since 
become extinct, so the main danger you face is from the layout of the 
cavern system itself, rather than from Guards of the Stronghold. 
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In STRONGHOLD OF THE DWARVEN LORDS you are in a 
cavern which holds the gold. Each time you play this game, the gold 
can be in one of three places. The only information you get as to your 
progress is information provided by the Dwarven Source Beam which 
you found as you made your way into the cave system. This gives you 
feedback after each move as to the location of the gold, but you need 
to learn how to interpret the information it gives you before you'll be 
able to make much use of it. 

The other information you get is in the form of a straight state- 
ment regarding the directions you can move from your present posi- 
tion. After each move (“step”), you'll be given a screen display like 
the following: 


STEP NUMBER 49 
NORTH: WALL 
SOUTH: OPEN 
EAST: WALL 
WEST: OPEN 


THZ DWARVEN SOURCE BEAM READS 10 


Then you'll be asked to enter the direction you want to move, as 
follows: 


WHICH DIRECTION DO YOU WANT 
TO NOVE? 


N ~ NORTE, S - SOUTH 
E - EAST, W - WEST, H - HELP 


ic will not, as you probably realize, be allowed to walk through 
walls, 


The aim of the game, needless to say, is to reach the Dwarven 
riches as quickly as possible. To aid you, there is a map of the cavern 
system from above, which you can call up from time to time. The map 
looks like this (with the walls shown as # symbols, and you shown 


as *); 


NORTH 

PHEFHE PH HPP EP HS 
¢ #f8oe eee FED 
et #f00t # 
OF OFEEE HHH TF 
#¢ #FHFG FFF 
## ##? FFF 
FeESEGE FF # 
#¢GFETE HOE FF 


## 6* # ### 
Fe ##st HE $ 
## #2 FEF HF 


FFFFHE FE FHPEF 
PFE FH FEEOH 


# He # 
HE SPELPIPFEH FH 
SOUTH 


There are two catches to calling up a map of this type. First, 
although your position is shown, the location of the gold is not. Sec- 
ond, each time you enter “H” to get a look at the map, you'll be 
penalized 15 steps. Therefore, it is in your interests to use the Help 
option as few times as possible. 

The output of the program, as it is given in terms of the direc- 
tions you can take from your present position, could be modified to 
produce a “3-D maze” output. You know, from move to move, which 
direction you’re facing, and the computer knows which directions 
from that position represent possible moves. You would need to add a 
subroutine which drew a picture of the situation immediately in front 
of you, choosing from a bank of pictures (one with the area straight in 
front of you clear but with the walls solid on either side of you, an- 
other with entrances to the right and to the left but with the path 
straight ahead blocked off, and so on) to produce a continuous picture 
of the scene ahead. This can be most effective, and may well be worth 
implementing on your system. 
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Now, here is the listing of STRONGHOLD OF THE DWARVEN 
LORDS so you can start trekking for goki: 


10 REM STRONGHOLD OF THE DWARVEN LORDS 
20 GOSUB 640 

30 GOSUB 480 

40 REM SEEageareeesseaeesesstsy 

50 M=M#1sIF M>150 THEN GO10 960 

60 CLO:PRINTSPRINT 

70 PRINT “STEP NUMBER" 

80 PRINT 

90 PRINT*NORTH: *; 

100 IF A(D+t, E}=$ THEN PRINT*OPEN” 

40 IF ACD+E,Ed=< THEN PRINT*#ALL* 

120 PRINT "SfITH: "; 

430 IF AtD-1,E)=$ TREN PRINT"OPEN" 

140 IF ACD-3,£)=X% THEN PRINT"WALL" 

150 PRINT “EAST: “3 

160 IF A¢D,E+1)=S THEN PRINT“OPEN" 

170 IF AMD, E+t)=% THEN PRINT*WALL” 

180 PRINT "WEST: "; 

170 IF A(D,E-£)=5 THER PRINT*OPEN | 
200 TF AID, E-1)=% THEN PRINF'WALL 

240 PRINT 

220 PRINF"THE DWARVEN SOURCE BEAM READS"; 
230 PRINT 1008ABS{Z~D) +10SABS(Y-E} 

240 REM EESEesgeaRees esas assets 

250 PRINT 

240 PRINF'WHICH DIRECTION BO YOU ¥ANT" 
270 PRINT"TO MOVE?" 

280 PRINT:PRINT*N-NORTH, S-BOUTH* 

290 PRINT*E-EAST, W-WEST, H-HELP” 

295 Z$=1NKEY$ 

300 AS=INKEVS: IF AS="S"ORAS="N*ORAG="E"ORAG="W"ORAS=°H" THEN 310 
305 SOTO 300 

310 IF AS="N" AND ACD+1,E)=X THEN 300 
320 IF AS="5" AND AUD-1,E=% THEN 300 
330 IF AS="E* AND AID,E+t}=¥ THEN 300 
340 IF AS="W* AND A(D,E-f}=% THEN 300 
350 IF A$="H® THEN SOSUB 480 

360 EF AS=°N" THEN D=D#! 

370 IF A&="S" THEN D=D-1 

380 IF AS="E” THEN E=E+! 


390 IF AS=*W" THEN E=E-t 
400 IF 2=D AND Y=E THEN 430 

410 6070 50 

420 REN teganesagtsaseegseacess 

430 PRINTsPRINT*YOU FOUND THE DWARVEN RICHES" 
440 PRINT*IN JUST*N*STEPS!* 

450 GOSUB 500 

4b0 INPUT “ANOTHER GAME (Y/N) "3NSzIF LEFTS(NS, 12="N" THEW END 
465 IF LEFTS(NS,1)="¥* THEN RUN ELSE 440 
470 REM tenasstaceagesagaagsty 

480 REK HELP 

490 CLS 

500 PRINT 

510 PRINT*NORTH” 

$20 FOR B=15 TO 1 STEP -! 

530 FOR C=1 10 15 

540 IF ACB,C)=X THEN PRINT*S"; 

550 IF 8D AND C=E THEN PRINT*S";:60T0 570 
560 IF AtB,C)=$ THEN PRINT® *; 

570 NEXT CsPRERT:NEXT B 

580 PRINT*SOUTH" 

590 KeKHES 

600 FOR J=1 TO 2000:NEXT J 

10 CLSsA(D,E)=5 

620 RETURN 

630 REN Ssoeeensteaceaasesentes 

640 CLS 

670 CLS 

680 DIM Att5, 15) 

690 B=RND(3) 

700 Z=14:¥o18 

740 IF B=2 THEN ¥=2 

720 IF Be3 THEN 2=2 

730 4213522 

740 FOR B=t TO 1S:FOR C=1 TO 15 

750 A(B,C)=K21F RND(10}28 THEN ACB, C)=S 
760 IF C2 OR CD14 OR BC2 OR B14 THEN ACB, C)=X 
770 NEXT C,8 

780 0=2:6=2 

790 FOR F=1 TO 68 

B00 READ B,C 

81d A(B,C}=S 

820 NEXT F 
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830 Ke-15 

St RETURK 

B50 REN Ssageneerescteasssssstt 

BAO DATA 2,2,253s2y4y2y5p200e2e7 

870 DATA 374447454 75695q55594e5y 34653 

BHO DATA 7,3, 7545795 2y0s?52p 2180209958 

G00 DATA %,9,10,8,10,7410,6,10,5,10,4,8,8 

G00 DATA 10,3,11,3,12,3, 13,3, 14,3, 14,2, 7, 16 

910 DATA by 10,5, 10,4, 10,3,10, 2,10, 2, 11,2, 12 

920 DATA 2, 13,2, £4, 116, 12qby 13,6514 7512 

G30 DATA 14,12, 12,8, 14,95 12,9,13,%5 14,10, 12 

GAO DATA 11, 9,14, 10,11, 11,11, 12, 12,% 13, %, 13, $6 

950 DATA 13,1, 13,12, 13,13, 13, 14,14, 14 

Gb0 SOUND @,42S00ND 6, 62S0UND 4,8:F0R Je 70 1000:NEXT J 
970 PRINT:PRINT:PRIRT "AFTER*H*STEPS, YOU HAVEN'T BEEN* 
$90 PRINT *ABLE TO FIND THE OWARVEN":PRINTTAB (10% ; “TREASURE: ‘* 
990 PRINT "SHAKE OM YOU..." 

1000 GOSH 500:FOR J=1 TO 2000:NEXT:END 
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| |SHADOW THIEVES 


Next we have an adventure program which creates its own, stable 
map. That is, the map does not change within a game, but is totally 
different from game to game. The game takes place underground, ina 
maze of 20 cavers connected by tunnels. 

Although the number of possible combinations is not infinite, it is 
so huge (approaching the number of atoms in the universe) you would 
be unlikely to ever strike the same cavern system in your lifetime. 
However, the lack of true randomness in your random number gener- 
ator diminishes the total number of caverns you may visit, although 
you are unlikely to stumble across the same one more than once. 


CAVERN OF THE SHADOW THIEVES takes place in a very 
odd environment. You are within the maze of 20 caverns, trying to 
get to cavern number 20. Each cavern has four, and oniy four, tun- 
nels leading from jit to other caverns. Some of the tunnels are one- 
way, while others allow you to travel back and forth. 
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Several of the tunnels will contain rare treasure, such as spar- 
kling amulets and platinum shields. You can carry up to four items at 
a time. Other caverns are the homes of unusual inhabitants, such as 
gruesome gnomes and zany zombies. Each inhabitant will demand a 
toll of a particular item. If you are carrying the item, the inhabitant 
takes it from you and allows you to pass. The inhabitant also disap- 
pears after being bribed, dropping the bribe, so you can revisit that 
cavern later and pick up the object again if you like. 

You should make a map as you work through the cavern system. 
This way, you'll know for example that cavern number five contains a 
crazy centipede who wants a magic scroll, so that you can travel 
safely through cavern five as soon as you manage to pick up a suitable 
scroll, The interconnections between the caverns, as I said, do not 
change within a particular game so you can build your map with some 
confidence. Note that certain caves contain magic transportation spells 
which will move you at random within the cavern system. 

The only goal of this game is to get to cavern number twenty, 
and you'll find the output from the program will assist you in this task, 
reporting your position and possessions constantly: 


PLEASE STAND BY AS IF CONSTRUCT THE CAVE... 
x 
¥ 

k 

x 


FORO OCR ROK ICO K KKK 
TIME REMAINING: 49 

YOU ARE IN CAVERN 1 

TUNNELS LEAD TO 4,5 , 7 AND 2 


WHERE DO YOU WANT TO GO? 4 
RK RRR KKK RK KR KR KR KAR KKK KKK 


TIME REMAINING: 48 


YOU ARE IN CAVERN 4 
YOU HAVE COME FROM CAVERN 1 


TUNNELS LEAD TO 6, 8, 3 AND t 


WHERE DO YOU WANT TO GO? 4 
ES SSSESLESSEL SOS SS CESSES CEST & SF & | 


TIME REMAINING: 47 


YOU ARE IN CAVERN & 
YOU HAVE COME FROM CAVERN 4 


THE CAVERN CONTAINS A COPPER HEADBAND 


DO YOU WANT ET ¢¥ OR ND)? 
FORO III IO IO 
TIME REMAINING: 46 
YOU ARE IN CAVERN 8 
YOU HAVE COME FROM CAVERN 4 
YOU ARE CARRYING: 

1 - COPPER HEADBAND 


THERE IS A TERRIBLE TOAD HERE, WHO 
WANTS A FLATINUM SHIELD TO LET YOU PASS 


YOU MUST RETURN TO 4 


YOU HAVE COME FROM CAVERN 18 
YOU ARE CARRYING: 


i - COPPER HEADBAND 
2 — SPARELING AMULET 
% - PLATINUM SHIELD © 


THE CAVERN CONTAINS A MAGIC SCROLL 


po YOU WANT IT ¢<Y OR ND? 
FOO IO IGOR GOO OR IO I IOK a # 


TIME REMAINING: 30 


YOU ARE IN CAVERN 15 
YOU HAVE COME FROM CAVERN 18 
YOU BRE CARRYING: 
COPFER HEADBAND 
- SPARKLING AMULET 
FLATINUM SHIELD 
~ MAGIC SCROLL 


Bid sie 


THERE IS A WEIRD WEREWOLF HERE, WHO 
WANTS A SPUNETRUM COIN TO LEFT YOU PASS 


YOU MUST RETURN TO 18 
HOR ORO KAKO KKK RR KKK KKK KKK ARK 


TIME REMAINING: 239 
YOU ARE IN CAVERN 18 


YOU HAVE COME FROM CAVERN 15 
YOU ARE CARRYING: 


1 - CORPER HEADBAND 
2 - SPARKLING AMULET 
3 - PLATINUM SHIELD 


4 — MAGIC SCROLI 
TUNNELS LEAD TO 15 ,. 16 , 20 AND 19 


WHERE DO YOU WANT TO GO? 20 


YOU HAVE MADE IT?! 


YOUR CAVERN-MASTER RATING IS 7158 
YOU GOT OUT WITH: 
QOPFPER HEADBAND 
SPARKLING AMULET 
PLATINUM SHIELD 
MAGIC SCROLL 


Here’s the listing to allow you to make your own discoveries 
within THE CAVERN OF THE SHADOW THIEVES: 


10 REM CAVERN OF THE SHADOW THIEVES 
20 REM FOR VZ 300 
3O DIM A(20,4),R#(4) , BH (20) ,C&(20) DE (20), 


E® (20) . FS (20) 
COLOR 2,1:CLS 


COLOR (1+RND(S)),8 


SQ GOSUB 1130:REM BUILD CAVERNS 
60 GOSUER 1030:;REM FILL ARRAYS 


GOSUB 920:REM ALLOT INHA@BITANTS/GOODIES 
1=250:REM TIMER 
Vi: XO 

COLOR 2,1:CLs 

REM ook MAJOR GAME CYCLE 2x 

GOTO 230 

PRINT “SGGOOOI OCCA ICC AK" 

Q@=Q-1:1F @¢1 THEN 880 

PRINT:FRINT "TIME REMAINING: “30 

PRINTsPRINT TAB(RND(S))s"YOU ARE IN CAVERN": Y 
IF X>0 THEN PRINT "YOU HAVE COME FROM CAVERN"; X 
IF R&(L)=""ANDRS (2) =" "ANDRS (3) ="" 

ANDR$(4)=""THEN 190 

PRINT "YOU ARE CARRYING: " 

z= 

IF R®(Z)>""THEN PRINT Zp" — "3R®(Z) 

IF Z<4 THEN Z=Z+1:GOTO 200 

RETURN 

GOSUB 150 

IF LEN(F%(Y))=0 THEN 430 

PRINT:PRINT" THE CAVERN CONTAINS A"™sPRINT FS(Y) 
IF INKEY$<>"" THEN 260 

PRINT:PRINT "DO YOU WANT IT (Y OR N)?" 

t= INKEYS 


IF Q$2>"¥" AND O$<>"N" THEN 230 
IF @$="N" THEN 430 


IF R&(i}="" OR R#(2)="" OR RS(Z)="" 
OR R#(4)="" FHEN 390 
PRINT "YOU ARE CARRYING TOO MUCH" 


+ 


INPUT "WHICH ITEM DO YOU WANT TO DROP": 
IF $<1 OR $34 THEN 330 
TS=RS (5) 
R$ (5) =F $ (Y) 
Fe(y)="" 
GOTO 420 
Ge1 
IF R$(G)="" THEN R&(G)=FS CY) fF CY) =""2G0TO 420 
IF G<4 THEN G=G+1:GOTO 400 
GOSUB 130 
IF LEN(DS(Y))=0 THEN 4600 
IF ASC(D#&(Y))=42 THEN 820 
PRINTIPRINT "THERE IS A "3D%$(Y? . 
:PRINT "HERE, WHO WANTS A” 
PRINT E#(Y)3" TO LET YOU Fass" 
FOR I=1 TO 800:NEXT I 
G=1 
IF R#(G)=ES(Y) AND ES(Y)<>"" THEN 550 
IF G¢4 THEN G=G+1:GOTO 490 
PRINTSPRINT “YOU MUST RETURN TO"; 
FOR t=1 TO 400:NEXT I 
P=Xs X¥e Yar 
GOTO 2350 
PRINT "AND YOU HAVE IT!” 
FOR t=1 TO 800:NEXT I 
PRINT "THE "sD&(Y)s" VANISHES!"spe(y)="" 
FS (Y) =RS (G) 
Rt iG) =" it] 
PRINT "TUNNELS LEAD TO"sA(Y,1)3A(Y,2)3 


ACY, 3): "AND" SACY,4) 


PRINT: INPUT “WHERE DO YOU WANT TO GO": 
IF M=O THEN @=@-S:M=RND(1G)sGOTO 4670 
G=t 

IF ACY,G)=M THEN 470 

IF 6<4 THEN G=G+1:GOTO 440 

GOTO 610 

Xa 

Y=M 

IF ¥=20 THEN 710 


990 


GOTO 230 

REM XK KKKAKRKKK KA EKK 

REM k*k¥kkk SUCCESS ¥xxx 

CLS 

FOR f=1 TO 30OrPRINT TABCI) 9 "k"S NEXT £ 

PRINT&PRINT "YOU HAVE MADE IT!'! "3: SOUND 7,2 
BOUND 8, 12: FRINT 


REM xXx* TELEPORTATION xxx 

FOR I=1 TO 3OsPRINT TAB(I) "x": NEXT 

X=Y¥S SOUND 14,2; S0UND 10,3: SOUND 17,1 

Y= INT CRND (9) +7) 

GOTO 230 

REM KEKKKKKKERKKKKKE 

REM ¥*xX END ’°0 THE LINE xx 

PRINT:SPRINT “SORRY, FRIEND, BUT TIME IS UP” 
END 

REM KXXKKKERAR KEK ERKK 

REM *k* DISTRIBUTE INHABITANTS/GONDIES xxx 
FOR E=i TO 14 

F=RND (18) +1 

D¢ (F) =B$ (RAND (20))2REM INHABITANTS 

E$(F)=C$ (RND(20)):REM BRIBES 

FeRND (19) +1 

FS (F) =(4 (RND(20))sREM CAVERN CONTENTS 

IF RND(10)=5 THEN D@(F)="*":REM TELEPORTATION 


L000 NEXT E 

1010 RETURN 

LO2Z0 REM OCI KK 

1030 REM kkk CREATE CAVERNS x4x 
1040 PRINT “FLEAGE STAND BY AS I 


HIDE THE GOODIES..." 


PRINT “YOUR CAVERN-MASTER RATING" 
ZPRINT "IS"; 100K (100-0) +2%0 
IF R#(1)="" AND RS(2)="" AND RBCS) ="" 
AND R$ (4) =!" THEN END 
PRINT “YOU GOT OUT WITH" 
FOR T=1 TO 4:PRINT TAB(RND(7)) sR®(T) 
9 NEXT T 
END 
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1050 FOR D=1i TO 20 

1060 READ &#(D):PRINT TABR(D);"x":SOUND D,1 
1070 NEXT D 

1980 FOR Dei TO 29 

1090 READ C#$(D) 

L100 NEXT D 

1110 RETURN 

L120 REM ROOK RACK AOR KR KRACK KK 

1130 REM *xxk CONSTRUCT CAVERN xx*% 


1140 PRINT "PLEASE STAND BY AS I CONSTRUCT THE CAVE... 


1150 FOR B=1 TO 20 

11460 PRINT TAR(B) 3 "*" 

1145 SOUND B, 1 

1170 FOR C=1i To 4 

1180 ACE, C)=B+ (RND(7) -RND (4) ) 

1190 IF ACB, C)=B OR ACB,C)<1 OR A(B,C)>20 THEN 1180 

1200 NEXT C 

1205 SOUND B&, 1 

1210 IF A(B,1)=A(B,2)O0R ACB, 1)=A(B,3) OR 

A(B,1)=A(B,4) THEN 1170 
1215 IF A(B,2)=A(B,3) ORA(E,3)=A(B,4) OR 
A(B,2)=A(K,4) THEN 1170 

1220 IF RND(100)<19 AND 212 THEN ACR, (RND(4)))=20 

1250 NEXT B 

1240 CLS 

1250 RETURN 

1260 REM 4x XARA KIRK 

1270 REM xxx INHABITANTS *k* 

1280 DATA “HAIRY HOBGOBLIN’, "HALD BERSERKER", 
“SKINNY SKELETON" 

1285 DATA “GRUESOME GNOME”, “CUNNING CONJURER# 
"CRAZY CENTIPEDE" 

1290 DATA "DEMENTED DWARF", "GAVAGE SHRIEKER” 


— 7 ; CREEPIE CRAWLIE" 
1295 DATA "ROTTEN RODENT", "TERRIBLE TOAD" 


Geto need s"STICKY STURGE” 
1200 DATA “GHASTLY GHOUL", “WICKED WEASEL" 


oe » "LUMPY LEGEND" 
1505 DATA "ZANY ZOMBIE", "CROOKED CRAB" 


_ 4 "WRATHFUL WRAITH" 


1250 


L240 


DATA "WEIRD WEREWOLF”, "GIANT GARGOYLE" 


5 PEM KAKA KKK KKK KKK K 


REM 4X THE LOOT xxx 
DATA "FIECE OF COPPER", "SPUNE TRUM COIN", 
"PLATINUM SHIELD" 
DATA "COPPER HEADBAND", "MAGIC SCROLL", 
“PABULOUS FOT ION” 
DATA "WAND OF HEALING", "GWORD OF FIRE", 
“SPARELING AMULET" 
DATA “WAR HAMMER", “FIECE OF COPPER", 
"SPUNE TRUM COIN" 


5 DATA "PLATINUM SHIELD", "COPPER HEADBAND", 


"MAGIC SCROLL" 
DATA "FABULOUS FOTION’, "WAND OF HEALING”, 

"SWORD OF FIRE" 
DATA "SPARKLING AMULET", “WAR HAMMER" 
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| | THE DUKE OF 
DRAGONFEAR 


THE DUKE OF DRAGONFEAR puts you into another grid system 
world, but one which is populated with a range of fearsome pos- 
sibilities including pits containing quicksand or dragons, as well as 
magic caves which can transport you at random within the Land of 
Dragonworld, and caves filled with Dragon’s gold. 


If you're a veteran of computer games, you may well recognize 
that THE DUKE OF DRAGONFEAR is a development of the Hunt 
the Wumpus games, Wumpus is one of the grand old standards of 
computer games, in which you are in a cave system, looking for one or 
more mythical beasts known, in the singular (and these are most sin- 
gular beasts) as Wumpus. Wumpii, we are assured by those who care 
about such things, is the plural. Anyway, in essence, a grid is set up in 


a 


such games, and objects, people, effects, monsters and whatever else 
you choose are placed at locations on the grid. From time to time, if 
you so decide, one or more of the contents of specific cells of the grid 
may move. The human player, of course, can also move from cell to 
cell within the grid. 

Generally, there is no overall visible map of the system, although 
some programs (such as THE DUKE OF DRAGONFEAR) do pro- 
vide such information for players. The very first Wumpus game was 
written by Gregory Yob in 1975. In David Ahl’s superb book More 
BASIC Computer Games (Creative Computing Press, Morristown, 
New Jersey, 1979), Mr. Yob explains how he was visiting People’s 
Computer Company, in Menlo Park, California, to see the programs 
they were developing, and he noticed there were three “hunt the 
something” programs being written, each on a 10 X 10 grid, and each 
of which gave feedback to the player in terms of “no, no. . . try to the 
northwest.” 

Unenchanted, Mr. Yob returned to a lonely time-sharing termi- 
nal (back in those ancient days, gentie reader, human beings did not 
have little computers at their beck and call) and hammered out the 
program which eventually became the very first “Hunt the Wumpus.” 
Mr. Yob had the creature dwelling in a dodecahedron-shaped cave 
system. 

Mr. Yob’s inventive genius did not stop at this point. He peopled 
the cave with “magic bats” which moved you from place to place 
within the system at random, with bottomless pits, and ensured that 
the arrows with which you were equipped when you entered the sys- 
tem could fly round corners. 

You can see now how this framework became the heart of the 
Wumpus programs which have proliferated around the world and 
which formed the very rawest framework upon which THE DUKE 
OF DRAGONFEAR is based. This program gives you more control 
on the outcome of the program, adds treasure to the caves, and im- 
poses a time-limit to your game. 

As well, you are equipped with a “magic amulet” which can see 
into the caves which are around you. Unfortunately, because you’re 
not much of a whiz when it comes to invoking magic, the old amulet 
doesn’t work too well. It can only tell you of the contents of one of the 
eight caves surrounding the one in which you stand, and worse than 
this does not tell you which of the eight it is referring to. It is not as 
bad as it may sound. You’ll be surprised at how much use you can 
make of the limited information the amulet provides, As well, you'll 
get a brief glimpse of the cave system from above at the start of the 
kame, and from time to time as it goes on. 


In this map, X represents a wall you cannot pass or a cave you 
cannot enter, H (for human) is you starting in about the center of the 
system, $ is the treasure caves, ? the magic transportation caves, D 
represents dragons, and Q tells you that cave contains quicksand, Ob- 
viously this is a world filled with potential pleasures as well as dan- 
gers, 
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This is the program listing to enable you to become THE DUKE 
OF DRAGONFEAR: 


10 REM DUKE OF DRAGONFEAR 
20 GOSUB 1280 
30 CLSO:PRINT: PRINT: PRINT 
40 GOSUB 1200 
SQ G=RND (7) =1 
60 IF G@=O AND E<?55 THEN GOSUB 1200 
70 CLSsPRINT:PRINT: PRINT "DUKE "AS", YOU ARE IN CAVE"E 
80 IF G>O THEN PRINT "YOU ARE CARRYING %$"G” 
WORTH OF GOLD" 
90 GOSUB 760 
100 PRINT:PRINT "YOU HAVE"25-H"UNITS OF CHARISMA LEFT” 
110 PRINT:PRINT "WHAT DO YOU WANT TO DO?” 
120 PRINT "N - MOVE NORTH, S - MOVE SOUTR" 
130 PRINT "E ~ MOVE EAST, W —- MOVE WEST" 
149 PRINT "F ~ FIGHT A DRAGON, @ QUIT" 
150 INPUT Z7$:U=0: IF 2$="N"GR7$2"S"ORZ$="E"0RZ$=" 0" 
ORZ$="F"THENIGO 
ISS IF Z#<>"Q" THEN 150 
160 IF Z$="N"ANDA(E-10)=88 OR Z#="S" AND ACE+10) 
=88 THEN 1420 
162 IF Z$="E" AND ACE+1)=88 OR Z$="W" AND ACE-1) 
388 THEN 1620 
170 IF Z#="Q" THEN @=9:GOTO 1170 
36 


180 A(E)=46:IF Z$="N" THEN E=E~10 
190 IF Z$="S" THEN ESE+10 
200 IF Z$="E" THEN EsE+1 
210 IF Z$="W" THEN E=E-1 
220 IF Z¢="F" THEN GOSUB 930 
230 IF A(E)=63 THEN GOSUB 310:REM MAGIC 
240 IF AC(E)=68 THEN GOSUB 400:REM DRAGON 
250 IF ACE)=Gi THEN GOSUB 5S0:REM QUICKSAND 
260 IF A(E)=36 THEN GOSUB 430:REM GOLD 
270 HeH+i:IF H=25 THEN G=9:G0TO 1160 
280 GOSUB 1410 
290 GOTO 50 
SOO REM KXKKKKKKAAKKKKAKEKKKKKK 
310 REM MAGIC 
320 PRINT:PRINT "DUKE "AS", YOU'VE STUMBLED" 
330 PRINT "INTO A MAGIC CAVE,AND NOW YOULL" 
340 PRINT "BE WHISKED OFF TO ANOTHER CAVE....” 
350 GOSUB 1410 
350 ACE) = 44 
370 E=RND(76)+12: IF ACE)=88 THEN 370 
%80 RETURN 
"90 REM OOOO KKK KKK KK RK KKK 
400 REM DRAGON 
410 PRINT "YOU HAVE WANDERED INTO A DRAGON’S" 
420 PRINT "LAIR...START SAYING YOUR PRAYERS" 
420 GOSUR 1616 
440 M=RND (10000) /10000; IFM<, 2THENPRINT"IT HAS 
FLOWN AWAY": RETURN 
450 PRINT "IT AWAKENS...AND IT HAS SEEN YOU" 
460 GOSUB 1610 
470 IF M*.849999 THEN PRINT "BUT IT HAS RECENTLY EATEN 
475 IF mM>.849999 THEN PRINT "AND SO GOES BACK TO 
SLEEP" s RETURN 
480 PRINT "AND NOW IT ATTACKS......" 
490 GOSUB 1610 
500 IF M>.95 THEN PRINT “BUT YOU! FIGHT E@CK....AND 
WIN": RETURN 
510 FRINT "GOODBYE DUKE "AS 
520 GOSUR 1410:SGUND 1,9:SOUND 1,8:SOUND 1,8 
S30 Q=9:GOTO 1140 
S40 REM KXKKKKKKKKKKKREKE KEK ERK 
SSO REM QUICKSAND 
S60 FOR J=1 TO 12 
ae FOR k=t1 TO J:PRINT " “s:NEXT K 


§80 PRINT "HORRORS... QUICKSAND!"sSOUND S1i-d, 1 

590 FOR O=1 TO i00:NEXT O 

600 NEXT J 

610 O=9:H=O:GOTO 1160 

n2O REM OOOO OOOO RIOR Kx 

430 REM TREASURE 

640 K=RND (100) +100 

650 FOR J=1 TO 12 

660 FOR Z=2 TO J:PRINT " “seNEXT Z 

670 PRINT “TREASURE |! 1 1” 

680 FOR G=1 TO 150:NEXT 

690 NEXT J:SQUND 14,2:SOUND 18,2:SOUND 20,2:SOUND 21, 

yoo GOSUER 1410 

710 PRINTIPRINT "YOU? VE FOUND 4 HOARD OF" 

720 PRINTsPRIN? "“DRAGON-GOLD, WORTH $°K 

730 GeaG+k 

740 RETURN 

750 REM KXKXKKRKKKKKKK 

760 REM AMULET DETAILS 

770 Yi ‘ ; 

790 LHACE+FCY)) 

790 IF Leé?44 THEN 820 

800 IF Y<B THEN Y=Y+1:GOTO 780 

gio IF L=44 THEN RETURN 

820 PRINT "YOUR AMULET SIGNALS THAT" 

820 PRINT “THERE IS "3 

840 IF L=88 THEN PRINT "A SOLID WALL"; 

‘950 IF L=463% THEN FRINT "A MAGIC CAVE"; 

860 IF L=68 THEN PRINT “A DRAGON": 

870 IF L=8i THEN FRINT "“QUICKSAND"s 

860 IF L=36 THEN PRINT "GOLD"; 

890 PRINT “ NEARBY" 

900 GOSUR 1410 

G10 RETURN. 

920 REM KHEKKKKKKKEREKKKKKK KKK 

9220 REM ATTACK DRAGON 

940 PRINT ; 

950 AR@AR-i:IF AR=G THEN PRINT “YOU HAVE USED UF ALL” 

935 IF AR=0 THEN PRINT “ ARROWS....."3 
GOSUB 1410:RETURN 

960 PRINT "YOU HAVE"AR"ARROWS IN YOUR QUIVER" 

970 SS<0 

780 FRINT "WHICH DIRECTION DO YOU WANT" 
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990 INPUT “TO SHOOT IN (N,S,&,OR W) "38% 


1000 
1610 
1020 
1030 
1040 
1050 
1055 


1066 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1165 


1170 
1180 
1190 
1260 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 
13196 
1320 
1330 
1340 
1350 
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IF S$="N" AND A(E-10)=468 THEN SS=1:YT=E-10 
IF S$="S" AND A(E+10)=48 THEN SS=1:YT=E+10 
IF S$="E" AND A(E+1)=68 THEN SS=1:YT=E+1 
IF S$="W" AND A(E-1)=68 THEN SS=1:YT=E-1 
PRINT 
IF SS=0 THEN PRINT “THERE WAS NO DRAGON THERE....." 
IF SS=0 THEN PRINT "YOU HAVE WASTED AN 
ARROW! !":GOTO 1150 
PRINT “WELL DONE, DUKE "As 
PRINT "YOU HAVE HIT! 
PRINT "A FEROCIOUS DRAGON" 
GOSUB 1610 
IF RND(10)>3 THEN 1140 
PRINT "YOU KILLED IT! !":A(YT)=46:K@RND (100) +100 
PRINT 
PRINT "YOU ARE REWARDED WITH $"K:G=G+K:G0TO 1150 
PRINT "BUT YOU ONLY WOUNDED IT....." 
GOSUB 1410:RETURN 
IF H¢1 THEN PRINT "ALL YOUR CHARISMA IS" 
IF H¢i THEN PRINT "....EXHAUSTED....":GOSUB 
1610:GOTO 1180 
PRINT “YOU HAVE"25-H"UNITS OF CHARISMA LEFT” 
IF G20 THEN PRINT “YOU AMASSED 4#”"G"WORTH OF GOLD” 
PRINT:PRINT 
A(E)=72 
FOR J=1 TG 100 
PRINT CHR#(ACJ)) 3" "x 
IF 10KINT(J/10)=d0 THEN PRINT 
NEXT J 
GOSUB 1410 
IF G=9 THEN END 


RETURN 
CLS:PRINT: PRINT: PRINT 
PRINT " WELCOME TO THE WORLD OF": 


PRINT ,“ DRAGONFEAR" 
PRINT "YOUR MISSION 1S TO EXPLORE THE" 
PRINT "CAVES OF DRAGONWORLD,LOOKING FOR" 
PRINT "TREASURE, AND ATTEMPTING TO SLAY" 
PRINT “THE FEARSOME DRAGONS WHO LIVE IN" 
PRINT "THE CAVES. WHAT IS YOUR NAME"; 
INFUT At 


13460 
1270 
1380 
13590 
1400 
1410 


1420 
1430 
1440 
1450 
1440 
1470 
1486 


1490 
1500 
1510 
1520 
1550 
1540 
“1350 
1360 
1570 
1580 
1596 
L400 
£610 
1620 


CLO:FRINT: PRINT "ALL HAIL, DUKE “At 

PRINTIPRINT "YOU START THIS EXPLORATION" 

PRINT "WITH 25 UNITS OF CHARISMA, AND" 

PRINT "YOU MUST COMPLETE YOUR TASK" 

PRINT “BEFORE THE CHARISMA IS WORN OUT." 

PRINT " YOU LOSE ONE UNIT FOR EVERY": 
PRINT, "MOVE YOU MAKE" 

THe INKEYSs TSE=INKEYS 

PRINTSPRINT "PRESS ANY KEY TO BEGIN" 

IF INKEY$="" THEN 1440 

CLS: PRINT@a224, "FLEASE STAND BY, DUKE "As 

DIM ACLOO) sH=Or Q=O2L=0: G02 AR=6 

FOR B=1 TO 100:A(B)=46 

IF Be 1 20RESSOORLOXINT (B/10)=BORLOXINT (B/10) 


=H-1 THEN A(B)=88 
NEXT 


FOR B=1 TO S:RESTORE:FOR D=1 To 5 
Z=RND(76)+12:IF A(Z)=88 THEN 1510 
READ C:A(Z)=C 

NEXT D,B 

DATA 88,63,68,81, 34 

FOR B=1 TO S:READ Z:P(B)=Z:NEXT B 
DATA -11,-10,-9,-1,1,9, 10,14 

E55 

RETURN 

REM 

REM 

FOR O=1 TO 3000:NEXT O: RETURN 
PRINT "YOU CANNOT MOVE THAT WAY!":GOTO 150 
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Simulations 
Simulations are ways of producing a counterfeit reality. In contrast to 
adventure, where the reality created via the computer is often magi- 


cal and dream-like, the worlds accessed through computer simulations 
are generally more down to earth. 


In a simulation, the computer manipulates variables in accord- 
ance with formulae you've specified, keeping tabs on the unfolding of 
the situation you’ve generated, and taking the place of the environ- 
ment in terms of reacting to your input. _ er 

Simulations attempt to replicate life. However, because reality is 
notoriously hard to pin down and limit, we need to do some pretty 
drastic simplification before we can produce a workable simulation. 

Despite this simplification—as you'll soon see—a well-written 
simulation can imitate life to an uncanny extent. Cause and effect are 
linked as accurately as you can devise formulae for them. 
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| |MISTRESS OF 
XENOPHOBIA 


We'll start our exploration of simulations with the silliest one of the 
lot, MISTRESS OF XENOPHORIA, which is based on a program 
written by Alastair Gourley, a talented programmer who lives in 
Glasgow. 


There’s no need to explain MISTRESS, as the program gives 
you all the prompts you could need. Here’s the listing: 


20 GOSUR 700 
30 REM OG GGGGGOO OOOO ICIS IK 
4Q FOR Y=1 TO 20 
SO CLS 
60 PRINT: PRINT 
70 PRINT"MISTRESS OF XENOPHOEIA,A REPORT" 
80 PRINT"FOR YOU FROM THE OFFICE OF INFO 
“MATION REGARDING THE"; 
90 PRINT" STATE OF":PRINT"YOUR PLANET" 
100 PRINT“ IN THIS YEAR OF GRACE, "1994+Y 
120 PRINT" THE PLANETS POFULATION IS" INT (F+INP (HD) 
130 GOSUE BBO 
140 PRINT:PRINT"THE GROVELLING PEASANTS COULD " 
{SO PRINT"WORE SOME"LYACRES THIS YEAR. +." 
160 BOSUB 8Be 
170 PRINT" YOUR TREASURY HOLDS GOLD, GEMS" 


180 PRINT’AND COINS WORTH $"INT (UD 
190 GOSUB sBO 
200 PRINT:FRINT “TIME TQ ISSUE A DECREE....” 
210 PRINT:PRINT"HOW MUCH LAND IS TO BE FARMED” 
220 INFUT"THIS YEAR": 
230 UsU-Wk LO 
240 IF Ut THEN 780 
250 L=L+W 
260 GUSUEB 880 
270 PRINT:PRINT“AND HOW MUCH WILL YOU SPEND” 
280 INPUT"ON FOGD FOR THE PEASANTS"; 
290 UsU-Wk1LO 
300 IF U<i THEN 780 
S10 R=RND (LO) 
320 GOSUB 880 
S30 IF P-WKkRKS>P/4 THEN GOSUB S80 
B40 FRP+RND (1000) /1000K (WKRES-P) 
350 IF P2149 THEN 410 
360 GOSUB 880 
370 PRINT"THE POPULATION OF XENOPHOBIA IS” 
380 PRINT"NOW DOWN TO" INT(F) "AND THAT” 
390 PRINT'JUST AIN*?T ENOUGH, YOUR XENO":SOUND &,@: 
SOUND 7,7 
395 SOUND 6,6:SOUND 5,%:SOUND 4,4:SOUND 2,3: 
SOUND 2,2:SOQOUND 1,1 
400 GOTO 480 
410 USU+INT (PRL) /93 
420 NEXT ¥ 
430 PRINT:PRINT:PRINT"WELL, YOUR XENOPHOBIC, THATS" 
440 PRINT’ THE END OF YOUR 20 YEAR DOMINAT-ION OF 
OUR LITTLE"; 
450 PRINT'PLANET. “:PRINT"YOU MANAGED TO" 
460 PRINT"ACCUMULATE SOME $"U"WHICH" 
470 PRINT"I GUESS AIN’T TOO BAD...." 
480 GOSUB 880 
490 PRINTSPRINT'IF YOU?D LIKE ANOTHER SHOT" 
500 PRINT"RULING, THEN JUST PRESS *Y* OR" 
S10 PRINT’PRESS “N° ...." 
520 AS=INKEYS 
530 IF AS<>"Y" AND AS<S>"N" THEN 520 
S40 IF Ag="¥" THEN RUN 
S50 PRINT" YOUR WISH IS MY COMMAND" 
S60 PRINT"GH MISTRESS OF XENOPHOBIA": END 


S79 
a8o 


S35 
590 
S00 
410 
&20 
30 


540 
So 
£40 
&70 
680 
690 
700 
720 
730 
740 
FSO 
760 
770 
7B0 
790 
Boo 
819 
820 
ASO 
B40 
830 


B40" 


870 
BBO 
890 
Tare) 
910 


REM XXXXKXKEKKKEKKKRKKKKKKER 
PRINT'GH DEAR! THERE’S NOT ENOUGH FOOD 
FOR EVERYONE...." 

PRINT: PRINT"HORRORS, YOUR XENONESS" 

PRINT" THERE’S BEEN A REBELLION! !/!" 

PRINT" THE PEASANTS ARE REVOLTING" 

PRINT’ (I HAD TO PUT THAT LINE IND” 

GOSUB BBO 

TFRND (3S) =LTHENFRINT "AND YOUR COPS 
COULDN’ T STOP THEM": GOTO430 

PRINT"BUT YOUR RUTHLESS POLICE HAVE" 

PRINT°FUT A STOP TO ALL THAT NONSENSE” 

GOSUB 8BO 

RETURN 

NEXT Y 

REM XXXKKKKRKAKKKKKKKKEK AKER 

REM INITIALISATION 

CLS 

P=PEER (RND (32767) ) 2 H=F 

U=7OO0+RND (S50) 

L=70+RND (S50) 

RETURN 

REM KXXXKXEKKKAR KEK EKEKEKKKEK 

REM BANKRUPTCY 

PRINT: PRINT’WELL, XENO, THATS A FINE” 

PRINT"MESS YOU'VE GOT YOURSELF, AND 

PRINT’OUR LITTLE PLANET INTO." 

GOSUB 880 

PRINTSPRINT" THE TREASURY IS BANKRUPT?!" 

GOSUB 880 

PRINT:PRINT"AND GUESS WHO BLEW IT??? ? 72°77?" 

GOTO 490 

REM KEKKKKERKKKKAKKKKKER KKK 

REM DELAY 

FOR dst TO 1500 =+NEXT J 

PRINT 

RETURN 
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CURURAL PURSUITS 


If you’ve survived being MISTRESS OF XENOPHOBIA, you may 
be interested in something a little more earthy—running a farm. In 
RURAL PURSUITS, based loosely on a program written by Stephen 
Glen, also of Glasgow, you have a very difficult task, as you battle 
with an extremely touchy work-crew to bring home the bacon (or at 
least the wheat and barley). 


————e ee a - i 


Again the program is largely self-prompting, and working with it 
will teach you the best strategy for gaining a maximum return from 
your farm (and surviving for the requisite 20 years to win the game). 
However, a few hints wili not go astray. Although you can save 
money by paying your workers extremely badly, you'll find they'll 
desert you in droves in the following year, and the return you get 
from your land is dictated, to some degree, by the number of people 
you have working on the land. ¥ 

Another factor to keep in mind is that the three crops which you 
can plant have quite different returns, so it is in your interest to work 
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out which is the most profitable crop, and concentrate on that. 

Do not be dismayed if you foul the process up the first few times 
you run the program. You'll have to develop some real skills to keep 
your farm solvent, and it may take you several bad years to get the 
hang of it. , 

Here’s the program so you can become a happy farmer: 


tO REM RURAL FURSUITS 

20 YR=1 

40 MO=RND (1000) +7000 

50 LA=RND (1000) +100 

60 AC=RND (200) +300 

70 CS=RND (5) +8 

BO BA=C; WH=O:CO=0 

90 GOSUB 170 

100 GOSUB 290 

110 IF YR=10 THEN 750 

120 IF MO<1 THEN 790 

130 IF LAa<1 THEN 820 

140 YR=YR+i:AC=AC+INT (AC/RND (100) >) 

150 CS=CS+INT (12. 5xCS/100) 

140 GOTO ga 

170 REM UPDATE 

180 CLS 

190 FRINT"YOU HAVE $"MO"IN YEAR"YR 

206 GOSUB BBO 

210 PRINT"YOU ARE EMPLOYING"LA 

220 PRINT"LABORERS, WORKING FOR" 

230 FRINT"YOU ON"AC"ACRES" 

240 GOSUR 880:FOR V=1 TO 1000sNEXT Vs 
FRINT "PRESS ANY NUMBER" 

245 IF VAL CINKEY$)=0 THEN 245 

250 PRINT"CROPS: -—"TAB(7) sCO"CORN" 

260 PRINT ,BA"BARLEY” 

270 PRINT ,WH° WHEAT" 

280 RETURN . 

290 PRINTsPRINT'IT WILL BE $"CS”" IN" 

300 PRINT’GENERAL COSTS TO WORK EACH" 

310 PRINT°ACRE...AND SO THE MAXIMUM" 

320 PRINT"NUMBER OF ACRES YOU CAN" 

330 PRINT"WORK THIS YEAR IS"; 

340 MAX=INT(MO/CS):IF MAXSAC THEN MAX=AC 

S50 PRINT MAX 


BGG 


370 
Bago 
BPQ 
400 
410 
420 
4320 


geo 
330 
S40 
wo 
BGO 
370 
5BO 
S90 
400 
610 


PRINT*HOW MUCH LAND bO YOU WANT TO": 
PRINT“HARVEST "3 

INPUT L 

IF L=MAX THEN 370 

MO=MO-L4ACS 

GOSUE L7O 

PRINTIPRENT"HOW MUCH WILL YOU FAY EACH ": 

INPUT W PRINT" WORKER" 

IF W&xLA2KOQ THEN 420 

MO=MO-LAXW 

GOSUB 170 


» Pelo 
S PRINT WHAT FROFORTION (GUT GF TEN) DO" 


PRINT*YOU WISH TO CONCENTRATE ON CORN"; 
INPUT CF 

IF CPP THEN 490 

Por OF 

PRINT?PRINT"OF THE REMAINING*P"QUT OF TEN," 
PRINT"HOW MUCH WHEAT DG YOU WANT TO PLANT" 
INPUT WP 

IF WEF THEN 540 

P=P WF 

GOSUER 870 

FRINT"STAND BY FOR A YEAR...." 

FOR Z=1 TO 200G:NEXT Z 

BA=INT (P¥LKLARUKS/ 100000) 

CO=INT (CEXLXLAKWK2. 7/17000) 

WH= INT (WPRLAKLAKWK 1. 4/9300) 

T=BA+CO+WH 

GOSUE 170 

PRINT:PRINT T"TONS WERE HARVESTED” 

RT=INT ((. 548. 7KBAtS. 94KCO+2, 2KWH) K(CS-CX+1)) 
IF HA=O AND CO=G AND WH= THEN RT=O 

FOR Z=1 TO 2000:NEXT Z 

PRINT:PRINT’AND YOUR TOTAL RETURN” 
PRINT"WAS $"RT 

MO=MO+RT 

LA=INT (LA-LA/ (W+.01)) 

FOR Z=1 TO 2000:NEXT Z 

RETURN 

GOSUB 870 

PRINT "YOU HAVE SURVIVED FOR 10 YEARS" 


PRINT" CONGRATULATIONS!" 49 


TF MO>1E+12 THEN GOSUR 900 
PRINT “AND GAINED“MO"MONEY": END 
GOSUB 870 

FRINT "YOU HAVE GONE BROKE!" 


GOSUB 870 
FRINT "YOU HAVE NO WORKERS, AND" 


PRINT "HAVE BEEN FORCED TO SELL" 
PRINT , "YOUR FARM" 

END 

CLS 

_PRINT!:PRINT 

RETURN 


FOR TU=1 TO 33:READ FR,DU:SOUND FR, DU: 
NEXT TUrRETURN 

DATA 16,3, 18,2, 20, 3, 20, 1,20, 2,18, 1, 20,23, 21,5, 20,3 

DATA 20,2, 18,3, 18,1,18, 2,14, 2,18, 2,20,3,16,2 

DATA 16,35,18,2,20,3.20,1,20,2,18,1.20,3,21.3, 


DATA 2oa4, 23,5 wel 4 2. 20435 18,2 =F 14,5 pat ] 


| |AVALANCHE 


In this simulation, you are Mayor Glugenheimer, the leader of a 
Swiss alpine village which lies directly in the path of avalanches 
which launch themselves at the village with monotonous regularity. 
The game, like the other three in the book, forces you to make deci- 
sions regarding the expenditure of strictly limited resources. On these 
decisions hang the fate of your village. 

You are (you hope) in office for 20 years. Although it is more 
likely than not that the village will survive from year to year without 
suffering the ravages of an avalanche, the chances of an avalanche 
increase each year. The only resource under your control is money, 
which can be used to build shelters within which your villagers can 
huddle in comparative safety when an avalanche hits. 

You have limited money (which is bearing a generous interest 
rate if it is not spent on shelter). The longer you hang on to the 
money, the more you will have to spend on avalanche shelters. How- 
ever, the longer you wait without buying shelter, the more likely it is 
that an avalanche wiil occur, and many members of your village will 
be killed. You must therefore determine what proportion of your 
money you will keep on deposit, and what portion of it will be spent 
on shelter, If you have no shelter when an avalanche strikes, the vil- 
jage will be wiped out. 

As you can see, you are bearing a considerable amount of respon- 
sibility. If an avalanche does strike, and the computer considers the 
loss of life totally unacceptable, the game will terminate with the fol- 
lowing statement: 


THE LOSS OF HUMAN LIFE WAS 
CATASTROPHIC... YOU HAVE 
BEEN FORCED TO STEF DOWN 
FROM THE OFFICE OF MAYOR 


Here are a few “years” from the program in action: 


YEAR 1 
THE CHANCE OF AN AVALANCHE IS 19 TO 1 


THE VILLAGE HGS 2472 PEOPLE 


1 
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THE VILLAGE TREASURY HOLDS ® 12232 


HOW MUCH WILL YOU SPEND ON SHELTER? 11000 


YEAR 2 
THE CHANCE OF AN AVALANCHE IS 18 TO 
THE VILLAGE HAS 2595 PEOPLE 
YOU HAVE 29700 SHELTER 
THE VILLAGE TREASURY HOLDS # 1355 


HOW MUCH WILi YOU SPEND ON SHELTER? 


YEAR = 
THE CHANCE OF AN AVALANCHE IS 17 TO 
THE VILLAGE HAS 2724 PEOPLE 
YOU HAVE 29835 SHELTER 
THE VILLAGE TREASURY HOLDS % 1426 


HOW MUCH WILL YOU SPEND ON SHELTER? 


YEAR S 
THE CHANCE OF AN AVALANCHE IS 15 TO 
THE VILLAGE HAS 3003 PEOPLE 
YOU HAVE 29949 GHELTER 


THE VILLAGE TREASURY HOLDS # 1683 


HOW MUCH WILL YOU SPEND ON SHELTER? Loo 
xx AVALANCHE Xx 
KX AVALANCHE ¥* 
*X AVALANCHE *x 
XX AVALANCHE «x 
KX AVALANCHE XxX 
xx AVALANCHE #% 
KX AVALANCHE *x 
** AVALANCHE xx 
*kK AVALANCHE kx 
KX AVALANCHE «x 
XX AVALANCHE x 
Xk AVALANCHE xx 
xk AVALANCHE %x 


2794 FPEOPLE ARE SAFE... 
BUT 9 PEOPLE WERE KILLED... 


THERE ARE 27215 CUBIC YARDS OF SHELTER LEFT 


YEAR 12 
THE CHANCE OF AN AVALANCHE IS & TO 1 
THE VILLAGE HAS 4209 FEOPLE 
YOU HAVE 27215 SHELTER 
THE VILLAGE TREASURY HOLDS # 30846 
THERE ARE 9 VILLAGERS DEAD 


HOW MUCH WELL YOU SFEND ON SHELTER? © 
xX AVALANCHE kx 
XX AVALANCHE *x 

¥*X AVALANCHE xXx 

KK AVALANCHE xx 

**k AVALANCHE ** 

¥K AVALANCHE 4x 

** AVALANCHE *% 
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*x AVALANCHE xx 

XK AVALANCHE XxX 

**k AVALANCHE *% 
Kk AVALANCHE xx 


2722 PEOPLE ARE SAFE... 


BUT 1487 PEOPLE WERE FILLED... 
THERE ARE 24493 CUBIC YARDS OF SHELTER LEFT 


YEAR 18 
THE CHANCE GF AN AVALANCHE IS 2 TO fi 
THE VILLAGE HAS 2444 FEOPLE 
YOU HAVE 20095 SHELTER 
THE VILLAGE TREASURY HOLDS # 5326 
THERE ARE 2522 VILLAGERS DEAD 


HOW MUCH WHI. YOU SPEND GN SHELTER? So 
4x AVALANCHE xx 
xx AVALANCHE xx 
xX AVALANCHE &x 
** AVALANCHE *% 
** AVALANCHE xx 
XxX AVALANCHE xx 
Kk AVALANCHE xx 
xk AVALANCHE *% 
KX AVALANCHE xx 
xx AVALANCHE *x 
aX AVALANCHE kx 


2025 PEOPLE ARE SAFE... 
BUT 421 PEOPLE WERE KILLED... 


THERE ARE 18207 CUBIC YARDS OF SHELTER LEFT 


You can see that if an avalanche does strike, but not enough 
peopte are killed to force you out of office, it becomes a little easier to 
cope with future avalanches because you have. less people who you 
must shelter. However, the villagers waste no time in adding to their 
numbers (there is little to do on winter nights except huddle under the 
bedclothes and listen for the warning rumble of an impending ava- 
lanche, so the gradual population increase is not hard to understand). 

You'll be rewarded with a statement like the following if you sur- 
vive 20 years in office: ce 


YOU MANAGED TO SURVIVE 20 YEARS 
IN OFFICE, AND END YOUR TERM WITH: 


$ 6347 IN THE TREASURY 
1921 FEOFLE SURVIVING 


16468 CUBIC YARDS OF SHELTER 


Your fina! “mayoral rating” (see line 300) is related to the amount 
of money you still have left in the treasury, the number of surviving 
villagers, and shelter on hand. This total is offset by the number of 
people who have been killed in avalanche falls during your term of 
office. 


1o REM AVALANCHE ! 

20 REM FOR VZ300 

30 Mo = RNDCSOGG) + 9087 

40 PF = RND(LOOO) + 2278 

SO Ged: Deo: Ned 

60 FOR Y = i TO 20 

7O CLS 

80 IF ¥ = 20 THEN 240 

9O PRINT TAB(4) 3 "YEAR": Y 

100 PRINTIFRINT "THE CHANCE OF AN AVALANCHE 
IS"320- -¥2 “TO 1" 

L190 PRINT:PRINT “THE VILLAGE HAS" :Fs PEOPLE” 


120 IF S8¢>0 THEN PRINT:PRINT "YOU HAVE"3 63 "S 
HELTER" 

130 PRINTIFRINT "THE VILLAGE TREASURY HOLDS 
$= 

140 IF Dé>O THEN PRINT:PRINT "THERE ARE"s;D;" 
VILLAGERS DEAD" 

150 IF NésO THEN PRINT:PRINT "THERE HAVE BEE 
N° sN3 "AVALANCHES" 

160 PRINT: INPUT "HOW MUCH WILL YOU SPEND ON 
SHELTER" 3A 

170 IF M-ASO OR S#ACO THEN 160 

180 M=M—-A 

190 S=S+INT (2. 7A) 

200 M=M+INT(M/10 +,.5) 

210 IF INT(RND(1)*(20~-Y))+i=1 THEN GOSUB 220 


a2eo FP = INT(RP+, OF KF) 

2o0 NEXT Y¥ 

240 PRINT:FPRINT “WELL DONE, MAYOR GLUGENHEIM 
ER fF 

250 PRINT!IPRINT “YOU MANAGED TC) SURVIVE 2oO Y¥ 
EARS" 

260 FRINT "IN OFFICE, AND END YOUR TERM WITH 
a 

270 PRINTEPRINT TAB(4) ¢"$"%sMs "IN THE TREASUR 
Y iT} 

280 PRINTrPRINT TAB(C4) :Ps "PEQPLE SURVIVING” 
290 PRINT:PRINT TAR(4)*2S:"CuBIC YARDS OF SHE 
LTER" 

200 PRINTSERINT “YOUR MAYORAL RATING IS"3 10x 
MtPOKP+Pe9 —~ 12eD 

310 END 

320 REM 4x AVALANCHE xxx 

230 FOR J = 1 TO 32 

240 FRINT TAB(CIO/2)5"%* AVALANCHE *x" 

200 FOR E=1 TO 350 —- LOkJ!NEXT E 

360 NEXT J 

370 QOINT(S/10 + .53) 

380 TF @>F THEN @=0-15:GOTO 380 

a9O PRINT: PRINT @; "PEOPLE ARE SAFE..." 

400 K=mFeQ 

410 FLAG*O:IF X>2eP/3 THEN FLAG=1 


420 IF X>0 THEN PRINT: PRINT "RUT": X3 "PEOPLE 
WERE KILLED..." 

430 D=D+X 

440 Pati 

450 S=S-INT(S/10 + .&) 

440 PRINT: PRINT “THERE ARE";S; "CUBIC YARDS 0 
F SHELTER LEFT" 

476 FOR E=i TQ FO00:NEXT E 

480 IF FLAG={ THEN Soo 

490 RETURN 

wOO PRINT: PRINT 

wiO PRINT “THE LOSS OF HUMAN LIFE WAS” 

w20 PRINT "CATASTROPHIC... YOU HAVE” 

750 PRINT "BEEN FORCED TO STEP DOWN" 

340 PRINT "FROM THE OFFICE OF MAYOR" 

350 END 
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| |CHAIRMAN OF 
THE BOARD 


Finally in this section we have our major simulation, CHAIRMAN 
OF THE BOARD. 

Again the program is largely self-prompting, The aim of the 
game is to keep your factory running until you manage to make 
$10,000 Gn total, combining the value of stock in hand plus your capi- 
tal. You have to deal with recalcitrant unions (who won’t always let 
you fire the people you wish to get rid of, and have a great appetite 
for pay raises which you cannot deny), with workers who will hardly 
ever meet the production targets you set, and raw material suppliers 
whe enjoy putting their prices up as much as the unions enjoy slug- 
ging you for more pay. 

You'll find, in contrast to the other two programs, which are only 
very vague approximations to “real life,” that the life and health of 
your factory will become very important to you, and you'll certainly 
learn ways of manipulating resources for maximum return, Keep in 
mind that although you have great freedom in setting the retail price 
of your products, each rise in price will increase consumer resistance 
to purchasing those products, 


And now you can satisfy your corporate ambitions with this 


listing: 


REM CHAIRMAN GF THE BOARD 
GOSUB 1670:REM INITIALISE 
WE=WE+1 

GOSUER 930:REM REPORT 
GOSUB 1300:REM STAFF 
GOSUB 930:REM REPORT 
GOSUB 1130:REM FRODUCTION 
GOSUB 930:REM REFORT 
GOSUB 730:REM SALES 


100 GOSUB 140:REM PROBLEMS 

110 CA=CA-WAKWO-RE 

120 GOTO 30 

130 REM KXXKKKKE 

140 REM PROBLEMS 

150 CLS 

160 TF RND{(O)<.45 THEN 260 

170 A=RND (7) 

180 PRINT!FPRINT: PRINT 

190 PRINT “THE UNIONS ARE DEMANDING A" 
200 PRINT "PAY RISE OF"A"A" 

210 WA=INT (100k (WA+WAXH/100)) /100 

220 GOSUB 1840 

250 PRINTIPRINT "FAY PER EMPLOVEE IS NOW $"WA 
240 GOSUE 1840 


CLS 

IF RND(O)<.81 THEN 410 

PRINT: PRINT: PRINT 

FRINT "A FIRE IN YOUR WAREHOUSE HAS" 
PRINT “DESTROYED SOME STOCK. PLEASE” 
PRINT “STAND BY FOR A REPORT ON" 
PRINT "THE DAMAGE CAUSED..." 

GOSUER 1840 

A=RND (ST/2) 

ST=ST-A 

PRINT:FRINT "THERE WERE"A; AS 

PRINT "DESTROYED. THEY WERE " 

PRINT “WORTH $”°AXSF'RETAIL” 

GOSUB 1840 


oO PRINT “STOCK IN HAND IS" 


400 PRINT "NOW"STSAS 
410 IF RND(O)>.3 THEN S40 


CLS 

PRINT: PRINT 

PRINT “YOUR MAIN SUPPLIER HAS ANNOUNCED" 
PRINT "A DRAMATIC PRICE RISE...” 
GOSUB 1840 

A=RND (100%00/7) / 100 

IF AC THEN 470 

PRINTsPRINT' THE COST OF MAKING "Ag 
PRINT "HAS RISEN BY #"A"EACH" 
GOSUB 1840 

co=co+a 

PRINT:FRINT "IT NOW COSTS $"CO 
PRINT "TO MAKE EACH ONE..." 

GOSUE 1840 

IF RND(O) < .65 AND MA < SP THEN RETURN 
CLS 

PRINT: PRINT 

PRINT “YOU HAVE A CHANCE TG RAISE" 
PRINT TAB(4)3 "YOUR PRICE. YOUR" 
FRINT At:" NOW SELL FOR $"SP 

GOSUE 1840 

PRINT 

PRINT "WHAT PERCENTAGE INCREASE WOULD" 
INPUT “YOU LIKE TO IMPOSE";A 
RE“RE+A 

SP=INT (100% (SF+AKSP/ 100) ) 7100 
GOSUE 1840 

PRINT:PRINT “THE "A$" NOW SELL FOR #°SF 
BOSUB 1840 

RETURN 

REM *Xxxx 

REM SALES 

PRINT:PRINT "YQUR TOTAL STOCK OF” 
PRINT AS” IS"ST 

GOUSUB i840 

FRINT:PRINT “PLEASE STAND BY FOR A" 
PRINT "SALES REPORT...” 
A=INT(RND (0) ¥8T/ (RE/1000) ) +1 

IF A>ST THEN 790 

CLS 

PRINT: PRINT 

PRINT "THE TOTAL NUMBER OF "AS 
PRINT "SOLD I8"A 
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850 
Béa 
870 
8680 
890 
reels) 
F1i0 
920 
930 
940 
9350 
FO 
965 


970 
9a8o 
970 


L1oOod 
10106 
1020 
1030 
1mn40 
LO45 
1050 
10640 
1970 
1680 
1090 
1100 
1ilio 
1120 
1130 
1140 
Lise 

1140 


1170 
1178 


1184 
1190 
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ST=ST-A 
ZA=AXSP 
PRINT:FRINT "THE INCOME FROM THAT" 
PRINT "SALE WAS #"ZA 
CA=INT (AXSPK1IOO) /100+C0A 
GOSUB 1840 
RETURN 
REM OOOO OOOO KK 
REM REPORT TO THE CHAIRMAN 
CLS 
IF CA+ST<1 THEN 1510:REM BANKRUPTCY 
IF CA+ST>29999 THEN PRINT "YOU'VE MADE #10000 AND 
IFCAtST>9999THEN PRINT"CAN NOW RETIRE... ": 
GOSUB1840:G0TO 1590 
PRINTIPRINT “SHOP FLOOR REPORT, SIR," 
PRINT TAB(4);"FOR WEEK"WE 
PRINT:PRINT "CAPITAL IN HAND IS $" 
INT (CAK100) /100 
FRINT "RUNNING COSTS ARE #"RC"A WEEK" 
PRINT:PRINT "YOUR STORES HOLD"ST;AS 
PRINT TAR(6); "WORTH $"INT(STXSP*LGG) /100 
PRINT:PRINT "THEY SELL FOR $"SP" EACH" 
PRINT "AND COST $"CO"EACH TO MAKE” 
IF INKEY$<>" 9" THEN 1045 
PRINT:PRINT “YOUR WORKFORCE 1S NOW" 
PRINT WO"“STRONG, AND YOU ARE” 
PRINT "PAYING THEM #"WA"EACH" 
PRINT "THE WAGES BILL THIS WEEK IS $"WAxWO" 
FRINTIPRINT "EACH FERSON CAN MAKE"PR 
PRINT AS" A WEEK, & TOTAL" 
PRINT “OUTPUT OF "PRkWO 
RETURN 
INPUT "HOW MANY DO YOU WISH TO PRODUCE"; MA 
IF MA=0 THEN RETURN 
PRINT 
IFMAXCO>CA THEN PRINT"YOU DO NOT HAVE 
ENQUGH MONEY":GOTOL130 
IF MA>PR#WO THEN PRINT "YOU DO NOT HAVE 
ENOUGH PEOPLE" 


IF MASPRAWO THEN PRINT TAE(4) 3; "THAT MANY": 


GOTO 1130 
PRINT “YES SIK...THE TARGET FOR WEEK"WE 
PRINT “IS"MA;AS 


1200 MA=INT (MA-RND (0) XMA/S) 

1210 GOSUB 19840 

1220 PRINTIPRINT "THE NUMBER OF "As 

1230 PRINT "ACTUALLY PRODUCED IN WEEK"WE 
1240 PRINT "WAS"MA"..." 

1250 ST=ST+MA 

1260 CA=CA-COXKMA 

1270 GOSUE 1840 

1280 RETURN 

1290 REM XXKxx 

1300 REM STAFF 

$310 PRINT "HOW MANY PEQFLE DO you" 

1320 INPUT "WISH TO HIRE"sA 

1330 WO=WO+A 

1340 PRINT:PRINT "THE TOTAL WORKFORCE” 
1350 PRINT "IS NOW"WO"STRONG" 

1360 GOSUB 18406 

1370 IF A?O THEN RETURN 

1380 GOSUB 930 

1390 FPRENT “HOW MANY PEOPLE DO YoU" 

1400 INPUT "WISH TO FIRE"3A 

1410 IF A=0 THEN 1480 

1420 IF A+WO THEN 1390 

1430 A=RND (A) 

14406 GOSUE 1840 

1450 PRINT: PRINT "THE UNIONS WILL ALLOW" 
1460 PRINT "YOU TO GET RID OF“A 

1470 WO=WO-A 

1480 GOSUE 18406 

1490 RETURN 

1500 REM KXKXKKXKEEKKKK 

1510 REM BOTTOM LINE! 

1520 PRINT:FRINT "“YOU*RE BANKRUPT! !":SOUND 3,8 
i330 GOSUB 1840 

1540 FRINT:PRINT "GH THE SHAME OF IT! !"sSOUND 3,8 
1350 GOSUB 1840:SQUND 1,8 

1560 PRINT:PRINT "STILL, YOU KEPT THE BUSINESS” 
1570 PRINT "GOING FOR"WE”" WEEKS” 

1580 GOSUB 1840 

1590 PRINT "ENTER °Y* FOR ANOTHER STINT" 
1600 PRINT "AS CHAIRMAN OF THE BOARD...." 
1610 FRINT "(OR *N? IF YOU WANT TO QUIT)" 
1620 AS=INKEYS 


1630 IF AS<>"Y" AND AS<e"N" THEN 1620 

1640 IF AS="V¥" THEN RUN 

1650 END 

1660 REM KEXKKKKKEY 

1670 REM INITIALISE 

1690 FOR Z=1 TO RND(S&) 

1700 READ As 

1710 NEXT Z 

1720 CA=S500+RND (3500) 

1730 ST=1LO0+RND (500) 

1740 SFe#10+RND(S) 

1750 CO=7+RND (5S) 

1760 IF CO?>SF THEN 1750 

1770 WO=7+RND (10) 

1780 WA=12+RND (SP) 

1790 PR=S+RND (6) 

1800 RC=100+RND (20) 

1910 WE=0 

1820 RE=1:REM RE IS SALES RESISTANCE FACTOR 
1830 RETURN 

1840 REM DELAY SUBROUTINE 

i850 FOR zZ=1 TO SOOOsNEXT Z:RETURN 

1840 DATA “EPONVMS”, "BICYCLES", "HARMONICAS" 
1870 DATA “KAZOOS", "LECTERNS", "MOLESKINS" 
1ada DATA "CARPETBAGS", "PITH HELMETS", "SKYHOORS" 
1890 DATA "BARBELLS 
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There is a range of games in this section of your book, alt designed 
just for fun. From NOUGHTS AND CROSSES, through LAS 
VEGAS HIGH, to INNER SPRING and ROBOT MINEFIELD, a 
splendid time is guaranteed for all. 


| | INNER SPRING 


We'll start this section of the book with one of the simplest games of 
the lot, INNER SPRING. As the program explains, the computer pro- 
duces two numbers between one and 13, and asks you to bet on the 


probability of the next number it thinks of lying between the first two. _ 


It’s simple to play, and a lot of fun. 
Here’s what one round looks like in action: 


MY FIRST NUMBER IS 2 
MY SECOND IS 4 

YOU HAVE $ 2 

HOW MUCH DO YOU BET 

MY NEXT NUMBER LIES 

BETWEEN 2 AND 4 7? 1 


MY NUMBER WAS 3 
WELL DONE, YOU WIN $ 2 


And here’s the listing of INNER SPRING: 


10 REM INNER SFRING 

20 GOSUB 330 

30 GOSUEB 80 

40 IF Déi THEN GOTO 420 

45 IF D>1000 THEN S30 

50 GOSUB 340 

60 GOTO 30 

7O REM ARERR RAE EK KER RK EK 
80 PRINTsPRINTs PRINT 

90 PRINT "MY FIRST NUMBER I5"A 


160 PRINT " MY SECOND 16° 
L1aQ PRINT 

29 FRINT "YOU HAVE &"D 

130 PRINT 


140 PRINT “AND HOW MUCH DO YOU. RET” 
150 PRINT “MY NEXT NUMBER LIES” 
1460 FRINT "BETWEEN" A”" AND" Bs 
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INPUT E 

IF E>D THEN 170 

D=D~E 

GOSUB Soo 

PRINTsFPRINT "MY NUMBER WAS"C 

GOSUB 500 
IF NOT (C>A AND C<B OR C<A AND C3B) THEN 290 

PRINT "WELL DONE, YOU WIN $"2x*E 

D=D+SxE 

GOSUB Seo 

RETURN 

REM XKKKKKKKKAKK RARE KKK AEM ARK AAR KKK KR KKK KKK KE KK 
PRINT "SORRY, YOU LOSE $"E 

GOSUB Sao 

RETURN 

REM XXXKEKKKAKKR RK RAK KK RR KKK RK KK RAK KK KKK KK KKKEK 
=a2O 

CLS 

A=RND (13) 

B=RND (13) 

IF ABS(A-B)<2 OR ABS (A~B) +6 THEN 360 

C=RND (13) 

IF A=C OR B=C THEN 380 

RETURN 

REM XXKKEKKRKKK KKK KKK KKK KKK KKK KR KK KK RAK KKKKAKE 
PRINT 

PRINT "THE GAME IS OVER’:GOSUB 30 

PRINT 

FRINT "YOU ARE BROKE!" 

PRINT 

PRINT “THANKS FOR THE GAME" 

END 

REM KKXKK KR KKR RK KKK KKK AK KKK KKK RK KR RRR KR KKK RE KK 
FOR Z=1 TG 1000 

NEXT Z 

RETURN 

FRINT:PRINT “CONGRATULATIONS! " 

PRINT "YOU HAVE REACHED #"b 


2 SOUND 21,4:SOUND 16,2:SOUND 16,1:SQUND 19,4 


SOUND ©,1:SOUND 20,4:SOQUND 21,4:END 


|] TUTANKHAMEN’S 
TOMB 


Tutankhamen was pharaoh of the 18th Dynasty of Egypt, around 
1360 B.C. He became king at the age of 11. The reason he is so well 
known today is that his tomb, discovered by archaeologist Howard 
Carter in 1922, is the only Egyptian royal tomb to have been found in 
almost its original condition. Most of the other tombs had long been 
ransacked by thieves. 

The Curse of the Royal Tomb hit those who dared disturb its 
sanctuary after such a iong tune, and the Curse continues its evil work 
in our program, The game outlines the rules, and the background: 


YOU HAVE A LIMITED TIME IN WHICH 
TO FIND AN EXPLORER LOST WITHIN 
EGYPT’S: GREATEST PYRAMID 


i ee i om re ore ee ee 


He 15 TRAPPED WITHIN THE FHAROQAH’S fies 
TOMB...AND HAS ONLY A VERY SMALL AMOUNT & 
OF AIR...YOL CAN TELL APFROXIMATELY [ie 
WHERE HE IS BECAUSE HR IS KNOCKING ON) 
ON THE SIDE TIF THE TOMB AND YOU ARE 
MAKING YOUR WAY TOWARDS THE SOUND... 
YOU CAN HEAR ENOCKING.... 


HOWEVER THE SOUND IS MUFFLED, AND 
YOU CANNOT ALWAYS TELL EXACTLY WHERE 
IT IS COMING FROM.... 
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THE KNOCKING APPEARS TO Be COMING FROM 
AHEAD OF YOU 


YOU HAVE 20 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE PYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? U 


THE ENOCKING APPEARS TO BE COMING FROM 
TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 19 DItkK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE PYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D.R,L,F.B)? R 


A i A er UE HO HE SA re PP BA Re ed Se eS Re OS 


THE KNOCKING AFFEARS TO BE COMING FROM 
ABOVE YOU TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 17 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 

WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT, TO TURN (U,D,R,L,F,B)? F 


So tte er ee Ae IL AE He et ee Se A HOY re et RR PRE A 84 A lh a de te 


THE KNOCKING APPEARS TO BE COMING FROM 
ABOVE YOU AHEAD OF YOU 


YOU HAVE 16 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERTES OF TUNNELS 

WITHIN THE PYRAMID... WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? U 

YOU HAVE 4 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,RyL,F,R)? F 


mE Mee te ek de a BA PA RA Ab ee dS AE PN OS PHO PAG ROSH HN 


THE KNOCKING APPEARS TQ BE COMING FROM 
AHEAD OF YOU 


YOU HAVE 3 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY’ DO YOU 
WANT TO TURN (U,D,R,L,F,B)? F 
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You'll discover you soon become quite skillful at interpreting the 
feedback from the computer although it is—as you can see—some- 
what erratic due to the imperfect sound transmission qualities of the 
stone. Here’s the result of a successful run: 


WELL DONE.... 


YOU FOUND YOUR FRIEND WITH 
ONLY & MINUTES OF AIR REMAINING... 


And here’s what you see if you fail: 


THAT’S THE END OF THE ROAD... 
YOU ARE TOO LATE...YOUR FRIEND 
HAS DIED WITHIN THE PYRAMID 


THE PHAROAH’S TOME HAS BECOME 
».eHIS TOME... 


When you feel brave enough to tackle the tomb (and risk being 
touched by its curse), enter the following listing, and then type RUN: 


10 REM TUTANKHAMEN’ S TOMB 

20 REM FOR VZ300 

SO A=RND (6) +4: Be RND (4) +4 CeRND (4) +4 

40 X=i2VY=ei:Z=1 

SO CLS 

60 CoOe21 

70 PRINT "YOU HAVE &A LIMITED TIME IN WHICH" 
80 PRINT "TO FIND AN EXPLORER LOST WITHIN" 
90 PRINT "EGYPT*’S GREATEST FYRAMID" 

LOO PRINT PRREINT nen nn ee me ree tre re ie ne 
we rece inn mn mise Ho RIE TNT 

1160 FOR ®=1 TO 1O000:NEXT 

120 FRINTsPRINT "HE IS TRAFFED WITHIN THE FH 
ARDAH* S" 

130 PRINT “TOMB...AND HAS ONLY A VERY SMALL. 
AMOUNT" 


140 PRINT "OF AIR...YOU CAN TELL APPROXIMATE 
150 PENT "WHERE HE IS BECAUSE HE IS KNOCKIN 
160 PRINT "ON THE SIDE OF THE TOMB AND YOU A 
170 PRINT "MAKING YOUR WAY TOWARDS THE SOUND 


180 PRINT "YOU CAN HEAR KNOCKING...." 
190 PRINT!IPRINT 9 -~--- mene ne ee 


200 FOR G=1 TO 1000:NEXT @ 

210 PRINT:PRINT “HOWEVER THE SOUND IS MUFFLE 
D, AND" 

220 PRINT “YOU CANNOT ALWAYS TELL EXACTLY WH 
ERE iy 

230 FRINT “IT IS COMING FROM...." 

240 FOR @=1 TO 1000:NEXT @ 

250 PRINTSPRINT "-—=-+—--—————--- 
wren nn "s PRINT 

260 PRINT:PRINT "THE KNOCKING APPEARS TO BE 
COMING FROM” 

270 IF RND(10)>7 THEN 300 

280 IF X>B THEN PRINT "BELOW YOU ": 

290 IF X<B THEN PRINT “ABOVE YOU "; 

300 IF RND(10)>7 THEN 340 

310.1F Z>C THEN PRINT "TO THE LEFT "; 

%20 LF Z<C THEN PRINT “TO THE RIGHT "3 


S30 IF (X<>B OR 2220) AND Yee THEN PRINT " 


AND " : 

340 IF Y<A THEN PRINT “AHEAD OF You" 

350 IF Y>@ THEN PRINT “BEHIND YoU" 

360 CC=CC-1 

370 PRINT:PRINT "YOU HAVE":CCy"DICK SMITH MI 

NUTES LEFT" 

380 PRINT:FRINT "YOU ARE IN A SERIES OF TUNN 

ELS" 

390 PRINT "WITHIN THE FYRAMID,..WHIGH WAY DO 
you" 

400 INPUT "WANT TO TURN (U,D,R,L,F,8)";A® 
410 IF A$="U" THEN X=X+1s IF X210 THEN X=10 
420 IF At$="D" THEN X=X<1:IF X<¢1 THEN X=2 

450 IF A®="R" THEN Z=Z+i:IF Z>10 THEN Z=10 
440 IF Ag="L" THEN Z=Z-1:IF Z¢1 THEN Z=1 
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IF At="F" THEN Y“Y+iriF Y>1i0 THEN Y=10 
IF Ag="B" THEN Y=Y-t2 IF Yel THEN Y=i 

IF X#B& AND C=Z AND A=Y THEN 540 

TIF Csi THEN 2406 

PRINT:PRINT "THAT'S THE END OF THE ROAD. 


PRINT “YOU ARE TOO LATE...YGUR FRIEND" 
PRINT "HAS DIED WITHIN THE PYRAMID" 
PRINT:PRINT "THE FHAROAH'S TOME HAS BECO 


PRINT "...HIS TOMB, ..":END 
PRINTSPRINT “WELL DONE...." 
PRINTSPRINT "YOU FOUND YOUR FRIEND WITH" 


PRINT "“ONLY";CC3 "MINUTES OF AIR REMAININ 


[|] ROBOT MINEFIELD 


Time now to face the terrors, the dangers, and the horrors of the 
ROBOT MINEFIELD. There you are, peacefully tripping along one 
day in the sun, when suddenly you find yourself trapped in a walled 
area, with a number of manic robots, all bent on your destruction. 
The robots are shown on the display as dollar signs, the H is you, 
and the asterisks (*) are mines which are deadly to both you and 
robots. Robots, pretty pretty clumsily programmed, can detect you, 
but they cannot detect mines. Therefore, your salvation lies in getting 
a mine or two in between you and the robots, 30 that when they come 


The robots have one trick up their sleeves. They can merge into 


one another, so you may think only one robot is approaching you, - 


when_at the last minute it splits into two or more, one going each way 
around a mine. This is not a game for those who seek the quiet life. 

You can move north, south, east, or west (with north at the top of 
the screen), and you enter the move you want to make by entering 
the initial of the desired direction (so you enter “N” to go north, “S” to 
go south and so on). 


20 GOTO 250 
40 REM MOVE ROBOTS 
40 TALLY=0 
50 FOR &=1 TO 4 
40 IF ACE(E),C(E))s42 THEN TALLY=TALLY+1:GOTO 200 
70 XsE(E):V=C(E) 
80 IF BCE)<D THEN B(E) =B(E) +1 
90 IF B(E)>D AND RND(10)>3 THEN B(E)=8(E)-1 
100 IF C(E)<F AND RND(10) 23 THEN C(E)=C(E) +1 
110 IF C(E)2F THEN CCE) =C(E)—1 
120 IF B(E)<2 THEN EE) =2 
130 IF B(E)>4 THEN B(E)=14 
140 IF C(E)<2 THEN C(E)=2 
iSO IF C(E)214 THEN C(E)=14 
160 A(X, V)=46 
170 IF AQB(E),C(E))=42 THEN TALLY=TALLY+1:G0TO Zoo 
180 IF ACB(E), CCE) )=200 THEN ACE(E),C(E))=228: 
tS =e n 
190 ACB(E), CCE) ) #228 Cote epe ee eae 


200 NEXT E . 

210 IF TALLY¢CH THEN TALLY=CH 

220 CH=TALLY 

230 IF TALLY=4 THEN GOSUB 300:GOTO' 970 
240 RETURN 

250 GOSUB. S3O:REM INITIALISE 

260 GOSUB 300:REM PRINT MINEFIELD 

270 GOSUB 30:REM ROBOTS MOVE 

280 GOSUB 420:REM HUMAN MOVE 

290 GOTO 260 

300 REM PRINT MINEFIELD 

310 PRINTCHRS (28) ; 

320 IF TALLY2O THEN FRINT2480,"DEAD ROBOT TALLY: "TALLY 
330 IF TALLY>0 THEN PRINT CHRS (28) ; 
350 FOR B=1 TO 15 

360 FOR C=1 TO 15 

S70 PRINT CHR&(ACB,C)) 3" "3 
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380 
=90 
400 
Alo 
420 
430 
440 
450 
455 
460 
463 
470 
47S 
4B0 
485 
490 
AS 
500 
S10 
520 
530 
550 
50 
570 
580 
610 
620 
S20 
640 
650 
460 
670 
680 
490 
700 
710 
720 
730 
740 
750 
760 
770 


NEXT C 
FRINT 
NEXT B 
RETURN 
REM PLAYER MOVE 


A(D,F)=46: Bé=INKEYS 

ASmINKEYS 

IF At="" THEN 440 

SOUND 31,1 

IF At="." AND D>2 THEN D=D-1 

IF AS="4" AND D?2 AND F>2 THEN D=D~1i:F=F~1 
IF A$=" " AND D<14 THEN D=D+1 


IF AS="S" AND D>Z2 AND F¢14 THEN D=D-1:F=F+1 
IF AS="," AND FC14 THEN F=F+1 
IF AS="X" AND D<14 AND Fe14 THEN DeD+1:FsF+1 


IF AS="M" AND F232 THEN FSF-1 

IF A$="Z" AND D<14 AND F>2 THEN D=Dt+1i:F=F=1 
IF A(D,F)=42 THEN GOSUB 300:GOTO 990 
A(D,F)=200 

RETURN 


REM INITIATE 

DIM A(15,15) 3B(4) .C(4) 
CLS 

PRINT:PRINT "PLEASE STAND BY FOR A MOMENT..." 
CH= 

REM PLACE WALLS 

FOR Bei TO 15 

FOR C=1 TO tS 
A(B,C)=46 

IF B=! OR B=1i5 OR C=1 OR C=15 THEN A(B,C)=98 
NEXT C,B 

REM PLACE MINES 

FOR B=1 TO 20 

CeRND (13) 

D=RND (13) 

IF A(O,D)=88 THEN 490 
A(C,D)=42 

NEXT 

DATA 4,4,13,8,8,3,12,7 
REM PLACE ROBOTS 

FOR &=1 TO 4 

D=RND (15) +1 
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780 F=ERND (13) +1 

790 IF A(D,F)<>46 THEN 770 

BOO B(E)=D:C(E) =F 

B10 A(B(E),C(E) )=228 

a20 NEXT E 

830 REM PLACE HUMAN 

840 D=RND(13) +1 

B50 FeRND(13)+1 

G40 IF A(D,F)<>46 THEN 830 

870 A(D,F)=200 

880 CLO:RETURN 

890 REM HUMAN AT D,F 

900 REM ROBOTS AT B(E),C (ED 

910 REM END OF GAME 

920 PRINT3480," THE ROBOTS HAVE GOT YOU!!" 
925 SOUND 16,3:SOUND i6,2:SQUND 13,4:SOUND 18,2 
927 SOUND 16,5:SOUND 13,6 

930 CH=0: TALLY=0 

940 Age" 

950 IF INKEY@<¢>"" THEN 950 

960 GOSUB §70:60TO 260 

970 PRINT9480," YOU'VE DEFEATED THE ROROTS!!" 
980 GOTO 930 

990 PRINT|480," YOU'VE RUN INTO A MINE":SQUND 1,8 
1000 GOTO 930 
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|] NOUGHTS AND 
CROSSES 


I’m sure that NOUGHTS AND CROSSES (Tic-Tac-Toe) needs no 
introduction. Here is a program which plays fairly well, but not in a 
totally predictable manner, so you stand a fair chance of winning a 
few games. 

This may not sound like a big deal. However, many NOUGHTS 
AND CROSSES programs have been written so that a draw is the 
best you can do, if you are not actually beaten by the machine. 


FovsT ING 


This program decides who will go first in each game, and re- 
sponds swiftly to your moves. You move just by entering the number 
of the square into which you want to move. 

Let’s see NOUGHTS AND CROSSES in action: 


12s = “3 ONS 


as 


oy oo 
1 
mt 
I 


456 - X = 

789 - - X 128 0 x oO 
456 -~ X = 
789 me eK 

123 Q x OG 

45 6 ~ % 

789 ~ gO xX 
{2-3 a xX Oo 
456 - xX = 
789 ae ee 

12% 2X36 

4% 6 Oo xX = 

789 Xx oO xX 
i235 0 xX OD 
45 6 Oo x xX 
789 x oO xX 


IT*S A DRAW! 


Here’s the program listing: 


20 CLS 

90 DIK AI9) 

#5 FOR T=1 TO FACTi=O:SQUNG T,LNEXT 1 

100 T=RRD(O) 

£05 IF 1.7 THEN PRINT "1’LL HAVE THE FIRST MOVE" 
110 EF 1<=.7 THEN PRINT "YOU HAVE THE FIRST MOVE" 


413 FOR Z={ TO 1000:NEXT: C19 

{20 IF 1>.7 THEN 140 

125 IF INKEY$<>"* THEN 125 

130 GOSUB 750 

140 GOSUB 480 

150 GOSUB 470 

160 GOSUB 750 

170 GOSUB 480 

180 IF A(S)=0 THEN AfS)=1:G0TO 136 


190 REM TO COMPLETE ROW/BLOCK 
200 De! 

210 B=1 

220 IF B={ THEN X=: ¥=2: 
230 IF B=2 THEN Y=1:¥=43 
240 JF Be3 FHEN k=i: Y=: 
250 IF 8=4 THEN X=33Z= 
260 C=i 

270 TF ACK)=D AND A(Y)=D AND AfZ}=0 THEN ALZ)=1;60T0 130 
280 IF A(X)=0 AND ALY)=0 AND AlZ}=0 THEN ACY)=£:G0T@ 130 
290 IF A(X)=0 AND ACY)=D AND ACZJ=D FHEN A(X)=1:6070 130 
300 IF B51 THEN X=X+3: ¥=¥e3s 2=2+3 

SiO IF B=2 FHEN X=Xels¥=¥essZ=Z+1 

320 IF £43 THEN C=C+i:607O 270 

330 IF B¢4 THEN B=B+l GOTO 230 

340 IF D<2 THEN D=D+ls 6072 210 

300 REN MOVE AT RANDOK 

360 B=] 

370 D=INT(RND{O) $9) +! 

380 IF A(C)=0 THEN A(C)=13G0T0 130 

390 B=B+l 

406 IF B421 THEN 370 

4£0 Bed 


420 B=B+t 

430 IF A(B}=0 THEN A(B)=1:G0TO 130 
440 IF BC? THEN 420 

450 60SUB 750 

440 PRINTSPRINT"IT’S A DRAW* 

470 BOTD 650 


490 REM WIN CHECK 
#90 FOR Bet TO 4 
5300 IF B=1 THEN t=1:¥=2:2=3 
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510 IF B=2 THEN X=i:¥ 
20 IF B=3 THEN t=13¥ 
530 IF B=4 THEN X=3s2 
540 FOR C=1 18 3 

550 IF AK)=A(Y) AND ACY)=ACZ) AND ACXI<20 THEN 610 
560 IF B=t THEN X=Xt3sY=¥43: 2-245 

570 IF B=2 THEN X=X+ls¥=¥t1: 252+! 

580 NEXT C 

590 NEXT B 

600 RETURN 


610 REN THE WINNER! 

420 PRINT 

630 IF AC}=1 THEN PRINT *1’M THE WINNER!” 
640 IF AGK}=2 THEN PRINT “YOURE THE WINNER?” 
650 FOR O=1 TD 1000:NEXT O 

660 GOT9 95 

670 REN PLAYER MOVE 

675 IF INKEY$<>"" THEN 675 

680 PRINT @ 450, "ENTER YOUR HOVE" 

690 AS=INKEYS 

700 IF AS<"1" OR ASD>"9* THEN 690 

710 BeVAL(AS) 

720 IF A&B}C>O THEN &90 


725 PRINT @ 450,* . 
730 A(B)=2 

740 RETURN 

123 Xo 4 
456 - 9 90 
789 Xx xX oO 


I? M THE WINNER! 


|| MADAME ZARA 
READS THE 
CARDS 


How convenient. Not only do you save on “cross my palm with silver” 
coins, but the output of this program is just about as believable as the 
predictions laid on you by wandering fortune tellers. 

Madama Zara has a totally unique deck of fortune-telling cards, 
The Hartnell Arcana, which contains 36 cards. The suits are Stara, 
Stones, Shadows, Gems, Dust, and Echoes, and the individual cards 
are Anchor, Tower, Elvling, Knave, Cleric, and Sovereign. The four 
catds which are selected, and their relationship to each other, deter- 
mines the fate Madama Zara reads for you. (Actually, it doesn’t hap- 
pen like that at all, as it all depends on your wayward random 
number generator, but you don’t need to tell your friends this.) 

The program begins with a flashy display, then asks for your 
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name and birthdate, and tells you the astrological sign under which 
you were born: 


MADAME ZARA READS THE STARS.... 
KK KK KKK KKK KK KK KK KK 
MADAME ZARA READS THE STARS.... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
k FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR You... 
* FOR YOU... 
k FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
k FOR YOU... 
 « FOR YOU... 
WHAT IS YOUR NAME, MY DEAR? DICK SMITH 


WELCOME DICK SMITH, TO DAME ZARA’S HOUSE 
OF MYSTICISM...WHERE THE VEIL. OVER 
THE FUTURE IS MOVED BACK... 

»a.-JUST FOR @ MOMENT 


PLEASE TELL ME WHEN YOU 

WERE BORN. ..AS NUMBERS 

THE MONTH FIRST (1 - JANUARY TO 
12 - DECEMBER)? 7 


FHANE YOU, DICK SMITH 
NOW WHAT DAY OF THE MONTH WERE YOU BORN? 24 


DICK SMITH, YOU WERE BORN UNDER 
THE SIGN OF LEO 
x 
* 
x 
x 
x 
x 
NOW I SHALL GAZE ENTO THE FUTURE... 
x 
x 
x 


I AM TURNING UF THE CARDS FROM 
THE HARTNELIL ARCANA.. . 


THIS IS THE SOVEREIGN OF SHADOWS 


THIS IS THE ANCHOR OF SHADOWS 


THIS IS THE TOWER OF STONES 


THIS IS THE TOWER OF ECHOES 


AND THESE CARDS TELL. ME... 

DOMESTIC HARE INESS ES THREATENED 

A LETTER WILL BRING YOU STRANGE NEWS 

A LONG-AWAITED WISH IS ABOUT TO COME TRUE 


DISAPPOINTMENT IS ON ETS WAY 


ee Se eter ee ee me Hf ee we me th ah he ee a A ee mY AT Hite RN PAU OE enh mY ih SIN HO 


THANE YOU FOR CONSULTING THE 
THE WISDOM OF ZARA.... 


ee ne pete ee bee He ae ehh nS Ae tN eB a mY Sl HO 


I WOULD LIKE TO SEE YOU 
AGAIN SOME TIME, DICK SMITH 


Here’s the program so you can go into the fortune-telling business 
for yourself: 


10 REX MADAME YZ-ZARA READS THE CARDS 

20 GOSUB 770:CQLOR 2, £:CLS 

30 PREINT:PRINT “WELCOME “;A$;", TO DAME": PRINT"ZARA’S HOUSE OF"; 
40 PRINT “ MYSTICISN..."sPRINT “WHERE THE VEIL OVER THE FUTURE® 
5¢ PRINT "JS MOVED SACK...” 

60 PRINT TAB{7);*...JUST FOR A MOMENT“ 

70 FOR Y=t TO SOOsNEXT ¥ 

80 PRINT:PRINT “PLEASE TELE ME WHEN YOU" 

90 PRINT "WERE BORN...AS NUMBERS" 

100 PRINT "THE MONTH FIRST (1 - JANUARY TO" 

110 INPUT "£2 - DECEMBER)"; BisIF Bi<i GR BED12 THEN 80 

120 PRINT:PRINT “THANK YOU, “sA$ 

130 INPUT "NOW, WHAT DAY GF THE MONTH WERE YOU BORN"; B2 

140 IF 824i OR B2>31 THEN 120 

£50 B=100#51+B2 

160 CLS 

170 FOR ¥=i TO 3OsPRINT TAB(Y};"8*:SOUND Y/2,1:NEXT ¥ 

180 PRINF:PRINT A$;", Y@U WERE BORN UNDER" 

190 PRINT “THE SIGN OF "; 

260 IF B>=1O1ANDB<=1200RB>=1223ANDB<=123 iL THENPRINT "CAPRICORN" 
210 EF 6924 AND BX=219 THEN PRINT "AGUARIUS" 

220 IF 9>=220 AND BX=32f THEN PRINT “PISCES" 

230 IF B>=332 AND BX=420 THEN PRINT *AREES" 

240 IF B>=421 AND B¢=521 THEN PRINT “TAURUS” 

250 IF B}=522 AND BX=621 THEN PRINT “GEMINI® 

260 EF 82622 AND BX=723 THEN PRINT “GANCER® 

270 IF B>=724 AND 84823 THEN PRINT "LEQ" 

280 IF 87-824 AND BC=923 THEN PRENT °VIRGO" 

290 IF B>=924 AND BX=1023 THEN PRINT "LIBRA" 

300 IF B>=1024 AND 8¢1122 THEN PRINT *SCORPIO® 


310 IF B>=1123 AND B(=1222 THEN PRINT "SAGITTARIUS" 
320 FOR Yel TO 30:PRINT TAB(Y);"#*zFOR T=1 TO Q5:NEXT TsNEXT ¥ 
330 PRINT "NOW I SHALL GAZE INTO THE FUTURE..." 
340 FOR Y=1 TO 3O:PRENT TAB(Y);*#*sFOR T=t TO BS:NEXT T:NEIT ¥ 
350 PRINT "I AM TURNING UP THE CARDS FROM" 
30 PRINT "THE HARTNELL ARCANA. 

370 FOR T= TO SOOsNEXT T 

380 FOR Y=1 TO 4 

390. APRND(4)-1 

800 PRINT "=-a2=----=nan-n-annn anne ent 
410 PRINT "THIS 18 *; 

420 IF A=0 THEN PRINT "THE ANCHOR *; 

430 IF A=1 THEN PRINT *THE TOWER "3 

440 IF A=2 THEN PRINT "THE ELVLING *; 

450. IF A=3 THEN PRINT "THE KNAVE "3 

4a0 IF A=4 THEN PRINT “THE CLERIC *; 

470. IF A= THEN PRINT “THE SOVEREIGN *; 

480 A=RND(8)~1 

490 IF AsO THEN PRINT “OF STARS* 

500 IF A= THEN PRINT "OF STONES* 

510 IF A=2 THEN PRINT *OF SHADOWS" 

520 IF A=3 THEN PRINT “DF GEMS" 

530 IF Az4 THEN PRINT *OF DUST* 

540 IF As THEN PRINT “OF ECHOES* 

50 PRINT "---------nnnennnnnnnn enna 
560 FOR T=1 TO S00sNEXT T 

§70 NEXT Y 

S80 FOR T=1 TO 1000:NEXT T 

590 PRINT:PRENT "AND THESE CARDS TELL ME..." 
bO0 FOR T=1 TO 1000:NEXT T 

610 PRINT3PRINT A$(RND(10>) 

620 FOR T=1 TO 1000:NEXT T 

630 PRINTSPRINT BS(RND(10)) 

640 FOR T=t TO 1000NEXT T 

650 PRINTsPRINT CS4RND(10)) 

660 FOR T=1 TO 1000:NEXT T 

670 PRINTSPRINT DS (RND(10)} 

bB0 FOR T=1 TO £000:NEXT T. 

B90 PRINT So-=-n---nnnannennnnnn enna 
700 PRINT “THANK YOU FOR CONSULTING THE* 
710 PRINT "WISDOM OF ZARA...* 
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720 FOR T=1 TO 2000sNEXT 

730 PRENY 8--- nw n—ae nnn n enn mennncn nw nnt 

740 PRINT:PRENT *2 WOULD LIKE 70 SEE YOU AGAIN" 
750 PRINT "SOMETIME, “;AS 

740 END 

770 REM INITIALISE - ¥2300 VERSION 

7930 DIM AS(1O), BS(10) ,CH(L0) DS 110) 

790 COLOR 2,1:SOUND £2,2:SOUND 1,2:SOUND 5,2:CL5 
800 FOR T=1 TO 10 

B10 PRINT "82983 ¢ 2 E98 3 Ft 8’sSOUND 7,1 
820 PRINT "WADAME ZARA READS THE STARS..." 

830 NEXT T 

840 FOR T=1 TO 20 

850 PRINT TABET);°% FOR YOU..." 

460 NEXT T 

O70 FOR T=1 TO 1000:NEXT TF ; 

880 INPUT "WHAT IS YOUR NAME, HY DEAR "AS 
890 CLS 

900 FOR T=f TO 10s:READ AS{T}:READ 8$(T} 

910 READ CS{T}:READ DS(TISNEXT T 

920 RETURN 

930 DATA "A SUDDEN SHOCK", "GREAT JOY 1S WEAR” 

940 DATA "A PARK, AND A SPECIAL FRIENDSHIP* 

950 DATA "DISAPPOINTMENT IS ON ETS WAY" 

960 DATA “YOU ARE CLOSELY PROTECTED FROM HARM * 
970 DATA "THERE 2S & CHANCE TQ STOP ILL-FEELING" 
980 DATA “GODR FRIENDS ARE NEAR* 


970 DATA “DISTRUST THOSE WHO WOULD ABVISE YOU" 
1000 DATA “THE MOON {S IN A GOGD ASPECT FOR ¥OU" 

{010 BATA “SUCCESS IN SPECULATION IS LIKELY” 
1020 DATA "CONFIDE IW THOSE NEAR YOU" 

1030 DATA "SUCCESS IN ALL VENTURES IS INRICATED" 
1040 DATA "A MYSTERY WILL SOON BE SOLVED" 

1050 DATA "A LETTER WILL BRING YOU STRANGE WEWS* 


1060 DATA "GOOD LUCK WILL BE YOURS TODAY" 
1070 DATA "HEGH HONOR 1S ON ITS WAY" 
1080 DATA “DOMESTIC HAPPINESS 1S THREATENED" 


1090 DATA "THE CLOUDS ARE GATHERING", “STRENGTH IS ON YOUR SIDE* 


1100 DATA “SOMEONE IS WATCHING YOU WITH LONGENS* 
1410 DATA "FANILY QUARRELS LIKELY® 

1120 DATA "THE SUN 18 RISING ON YOUR HOPES" 
1130 DATA "EVIL CONSEQUENCES MAY BE AVERTED” 


1140 DATA "THERE IS A CHANCE TO MAKE UP =A QUARREL" 


1150 DATA “YOUR STRUGBLES ARE TD BE REWARDED" 
1160 DATA "YOU WILL BE TREATED GENTLY TOpAY" 
1170 BATA "A LONG-AWAITED WISH IS ABDUT TO COME TRUE" 


1180 DATA "SUSPICION 16 FOCUSED OX YOU" 

1190 DATA "GOOD HEALTH WELL BE YOURS" 

1200 DATA “FULFILLMENT OF A DREAM IS JUST AROUND THE CORNER" 
1210 DATA "BEAUTY COMES A-CALLING” 

1220 DATA “GOOD TIDINGS ARE ON THEIR WAY* 

1230 DATA “THE CURRENT BAD SITUATION WILL NOT LAST LONG" 
1240 DATA “LOSS OF PROPERTY IS PROBABLE" 

1250 DATA "YOU GET THE CHANCE TO WARD OFF EVIL 

1260 DATA "RICHES THROUGH PROPERTY ARE INDICATED” 
1270 DATA "A MINOR FAILURE WILL TURN TQ © SUCCESS" 

1280 DATA "I SEE A SAFE BULGING WITH MONEY FOR YOU" 
1270 DATA "GOOD NEWS I$ ON ITS WAY’, "BEWARE OF FLATTERY" 
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[| NIMGRAB 


NIMGRAB is a game which seems easy at first, but is the very devil 
to play ... and win. You and the wily computer take turns taking 
objects away from the screen. There is a limit to how many you can 
take away each move (and this limit changes from game to game, 
although it does not change within a particular round of the game). 
The winner is the person who manages to force the other player to 
remove the last object. 


Once you see it in action, you'll understand how to play it. Then 
you can start working on perfecting a method of actually beating the 
computer. Here is NIMGRAB: 


§) BEM NIMGRAD 

20 CLS 

30 N=OrE=0: Z2RND EBD 41d 

40 IF 2tINT(2/2)52 THEM ZsZ+1 

5d H=S4RND(2} 

b8 PRINT “THE SAXUMUM YOU CAR GRAS IS°H 

7G GOSUE 276 

G0 IF £20 THEN PRINT *¥OU TOOK*E’, AUD [ T8OK°C 
90 FOR K=1 10 Z 

(00 PRINT KystF AND(10)98 TREN PRIAT 
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110 NEXT K 

120 GOSUB 270 

130 PRINT "AND HOW MAMY WILL YOU GRAB?" 

135 PS=INKEYS 

140 E=VALCIRKEYS) 

150 IF E¢1 OR EDH OR E>Z THEN 140 

160 PRINTsPRINT"SO YOU WANT TO GRAB*E 

170 I=2-E 

180 GOSUB 270 

190 IF 241 THEN BOTO 320 

200 G=2—f-INT ( (2-1) /{H+1))8 (REL) ENT (RND (2) ) ENT (RND(2)} 
210 IF Qt OR OH THEN 200 

220 GOSUB 270 

230 2=1-0 

240 IF 2(1 TREN PRINT? GRABBED THE LAST ONE SO YOU WIN! ! "END 
250 GOSUB 270 

260 GOTO &6 

270 PRINT 

280 PRINT “SHdaseeuserasatenaratacdsasauat® 

290 PRINT 

300 FOR G=$ TO 500:NEXT 0 

310 RETURN 

320 PRINT "YOU GRABBED THE LAST ONE * 

330 PRINT ,°SO I WIN!"2FOR Z=1 TO SOO:NEXT 7 

340 SDUND 16,3:SOUND 16,2:SOUND £3,4:SOUND 18,2:SOUND 14,5 
350 SOUND 13, asEND 


| | LAS VEGAS HIGH 


LAS VEGAS HIGH. You need only decide how much you'll bet be- 
fore puiling the handie on the machine (which you do by pressing the 
spacebar) and the reels will whirl away. 


Your winnings—as you'd expect—are related to the relative dif. 
ficulty of the various combinations coming up. The computer keeps 
up the chatter as the game, and your wealth (or poverty) unfold. 

Here’s the making of a million (or so}: 


10 REM LAS VEGAS HIGH 

20 GOSUB 1110 REM INITEAL TSE 

36 GOSUB 870 :REM PLAYER INPUT 

40 GOSUB 526 sREM OPERATE SLOT MACHINE 
SQ TF CASHC] THEN 90 

A¢ IF CASHD2500 THEN 296 

70 8078 30 

G0 REM $234 

96 REN BROKE 

190 REM s2293 
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1f¢ GOSUB 4% 

120 PRINT “THAT’S THE END OF THE LINE,” 
130 PRINT “OH ONCE MIGHTY GAMBLER...” 
140 GOSUB 410 

150 PRINT "YOURE STONE, FLAT BROXE!!* 
140 S0SUB 419 

170 PRINT “PRESS *Y* IF YOU’D LIKE TO" 
180 PRINT “HAVE ANOTHER GO AT BREAKING“ 


200 PRINT "(OR PRESS *N’ IF YOU WSK TO"sPRENT , "LEAVE}" 


210 AS=INKEY$ 

220 IF AS<>"¥" AND AS<>"N* THEN 210 

230 TF Ag="¥" THEN RUM 

240 PRINT:PRINT "OK, PUNTER... * 

250 GOSUB 410 

260 PRINT "THANKS FOR THE GAME!* 

270 END 

280 REM Ebteeteseasagt 

290 REM BROKE THE BANK 

SOO REN EEATEST EET T Ey 

310 BGSUR 410 

320 PRINT "WELL DONE, GAMBLER!!* 

330 GOSUB 430 

340 PRINF "YOU'VE REACHED OUR HOUSE LINIT" 
350 PRINT "SO WE'LL HAVE TO THROW YOU QUT 
340 PRINT “PEOPLE WITH LUCK LIKE YOURS GIVE" 
3B0 PRINT "OUR CASING A BAD NAME...+..." 
390 G8T0 140 

400 REM U8ees 

4'0 REM DELAY 

420 REM t83ts 

430 FOR P=t 40 1000:WEXT P 

440 PRINTSPRINT 

450 RETURN 

440 REM S3saartse 

470 KEN DELAY TW 

450 REM T3tsaett 

47) FOR P=1 TO 1000sKEXT P 

500 RETURN 

SO REN SSdRgegasesessenegay 

520 REM OPERATE SLOT MACHINE 

WAS CUMSSECStSSeL elects ere: 


540 C18 
50 GOSUB 410 

540 PRINT B J BARARAAKAABAAAADADAAAAAABAAAAY 

570 PRINT * 4°; 

580 FOR H=I 10 3 

590 BOSUB 460 

600 ASRND(46) 

610 IF AC2 THEN PRINT A$(4);:C(N)=1 

620 IF ADL AND AC& THEN PRINT AS{3);sC(M)=2 

630 IF ADS AND ACI2 THEN PRINT A$(1);sC(M)=3 

640 IF ADE AND AC20 THEN PRINT A$(2); 04H) =4 

650 IF AM? AND AC3L THEN PRINT AB{5) ;3C(H)=5 

660 IF A)30 THEN PRINT AS{G);2C(H)=6 

670 PRINT "4°;2SOUND 31,1 

680 NEXT H 

690 S0SUB 410 

700 WIN=0 

710 IF C(L)+C42)4C(3}=3 THER 1220 

720 IF Ci1)=C(2) AND C(3I=C(2) AND C{Z}=2 THEN 1240 

730 IF CUf)=C42) AND C(3)=C(2) AND CUUDCDE AND C(2)CO3 THEN 1250 
740 TF CU1)=C(2) OR C1LI=C43) OR C(Z=C(3) THEN 1260 

750 IF C(3)=2 THENPRINT"A BELL AT THE END 1S A BONUS!*:WINSWINE. 6 
70 IF C11)=3 AND C(3)=3 THEN PRINT"AN APPLE AT EACH END 1S GO0D* 
705 IF C(1)=3 AND C(3)=3 THEN WIN=WINE.5 

770 IF Clt}=4 AND C(2}=3 AND C(1)=4 THEN GOSUB 1270sWIN=WINE.4 
780 GDSUB 410 

790 WINSINT (WINEBET) 

B00 IF WEND0 THEN PRENT “AND YOU'VE WON"WIN*!*;CASH=CASH#NIN 

B10 IF WIN=0 THEN PRINT “AND YOU'VE LOST $*BET:CASH=CASH-BET 

820 BOSUB 410 

830 IF CASH THEN PRINT "SO NOW YOU HAVE $*CASH 

840 GOTO 440 

850 REN 

G60 REN tetssseetess 

870 REN PLAYER INPUT 

B00 REM eesetieeteet 

B90 CLS 

900 GOSUB 410 

910 IF CASH(300 THEN PRINT "HI THERE, GAMBLER!" 

920 IF CASH?299ANDCASH(600 THEN PRINT “YOU'RE DOING WELL TONIGHT” 
930 IF CASH)S99 AND CASH(900 THEN PRINT*LADY LUCK HAS CERTAINLY") 
935 IF CASH)S99 AND CASHC900 THEN PRINT® SHILED ON YOU!" 

940 IF CASHB99 AND CASH1200 THEN PRINT "THE FATES ARE BEING"; 
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945 IF CASH)B99 AND CASH<1200 THEN PRINT * EXTREMELY KIND” 
950 IFCASH)I199 THENPRINT'IT IS SQ GOOD 10 SEE AN EXPERT AT WORK® 
760 BOSYB 470 

970 PRINTsPRINT “YOU HAVE $*CASH 

980 PRINT: INPUT "HOW HUCH DO YOU WANT TD BET"; BET 

990 IF BET)CASH THEN PRINT "YOU AIN’T GOT THAT MUCH!":G0TO 980 
1000 BOSUB 410 

1010 PRINT "DX, SIR, $*BETIT I5t* 

1020 BOSUB 410 

1030 PRINT "PRESS THE SPACE BAR TOD PLAY" 

1040 IF INKEYS<)" * THEN 1040 

1050 FOR T=t 10 40 

1080 PRINT TAB(T/2);"9¢8aees STAND BY geease” 

1070 PRINT 

1080 NEXT T 

1096 RETURN 

1410 REM INITIALISE 

1130 CLS 

1140 DIS A$ (4), 0(4) 

1150 CASH=250 

1180 FOR Bet 10 & 

1170 READ AS{B) 

1180 NEXT B 

1190 RETURN 

1200 DATA "SAPPLES*, “ICHERRYS*, "SBELLE®, ©! 'BARH!* 

1210 DATA *<<LEMON)>*, *CEPLUN3® 

1220 PRINT*THREE BARS! !!"sGUSUB4i0:PRINT*THAT’S JACKPOT STYLE! !" 
1230 WIN=WINE9:60T0 750 

1240 PRINT “THREE BELLS!!! *:MIN@WIN#3,9:B070 750 

1250 PRINT "THREE OF A KIND*:WINSWIN#3, 526070 750 

1260 PRINT ">> A PAIR <<*:WINEWINE, 726070 750 

1270 PRINT "THAT OLD "CHERRY, BELL CHERRY’* 

1280 PRINT “COMBINATEON IS ONE OF MY FAVORITES! ":RETURN 


[| ROULETTE 


ROULETTE is the king of gambling games. This computer version, 
which faithfully follows the rules of roulette, will allow you to 
painlessly test your favorite “system.” 
This game plays with an American wheel, which has the numbers 
0 to 36, plus double zero. The program speaks faultless French, as do 
all good croupiers, inviting you to place your bet with the words 
MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets). 
Note that the difference between the European and American wheels 
is discussed at the end of this introduction. 


— r 


Some of the numbers on a roulette wheel are red and the balance 
are black, Among other bets, you can bet on the ball stopping on any 


red number, or any black one. 


After the computer has told you how many chips you have, and 
asked you to place your bets, you'll be expected to enter a letter be- 
tween A and Q. Q tells the computer you wish to quit (withdraw from 
the game), and the other letters determine which kind of bet you wish 


to place, according to this key: 


A—a single nuinber 


B—two adjoining numbers 
C—three numbers in adjoining columns 


D—six numbers in adjoining columns 


E—four numbers in a square 


F—numbers 1 through 12 (“The First Twelve”) 


G—numbers 13 through 24 (“The Second Twelve”) 
H—numbers 25 through 36 (“The Third Twelve”) 
I—numbers 1 through 18 (“Low”) 
J—numbers 19 through 36 (“High”) 
K—12 numbers in a horizontal row 


L—two adjacent horizontal columns 


M-—any red number _ 

N—any black number 

O—any even number 

P—any odd number 

Q—to quit the game 
The red numbers are: 


A 3). Se. 7, 9, 12, 
27, 30, 32, 34, 36, 


The black numbers are: 


2, 4, 6, 8, 10, 1 1, 
28, 29, 31, 33, 35 


14, 16, 18, 19, 


13, 15, 17, 20, 


21, 


22, 


23, 


24, 


25, 


26, 


Here’s what a roulette table looks like: 


NOIR PAIR PASSE 
34r 3ib 28r 25r 22b 19r 16r 13b 10b 7r 4b ir 0 
35b 32r 29b 26b 23r 20b 17b 14r lib 8b Sr 2b 
36r 33b 30r 27r 24b 21r 18r 15b 12r Or 6b 3r 00 
ROUGE IMPAIR MANQUE 


As you can see, the table has three words above, and three below, the 
numbers. These are noir (black), pair (even), passe (numbers 19 
through 36), rouge (red), impair (odd) and manque (numbers 1 
through 18). 


A European roulette table has the numbers 1 through 36, plus 
zero, while the American table has a double zero as well. It comes as 
quite a shock to innocent folk like me to discover that while the house 
take on all bets on the European wheel is 2.70% on all bets (except 
the even money chances, where it drops to 1.4%), the house take on 
the US wheel is almost doubled to 5.26%. Our wheel, as you know, 
follows the US system. 

Here’s the program in action: 


AT THE ¥Z300 ROULETTE WHEEL... 
wes YOU HAVE 1000 CHIPS 


XHS KHDS KH KHS SHE SHK HHK SHH 


MESSIEURS, FAITES VOS JEUX (A - @) 
7M 


HOW MANY CHIPS? 408 

X#S KHD KHS KHS GHEE SHA FER SHX 

THE WHEEL 15 SPINNING... 

KHS KHG XHS KHG SHR HK Ste BHX 
23 


27 
00 


99 


12 
21 
25 
KHh KHS KH KES SHK HEX SHA HHH 
THE BALL STOFFED ON 27 
CONGRATULATIONS, YOU HAVE WON 403 CHIFS 


KEG KEG KS KES BHK PHK BHX BHK 


AT THE VZ200 ROULETTE WHEEL... 
»»e YOU HAVE 1408 CHIPS 


KES KES KS KHS SHR SHK BHR SHK 


MESSTEURS, FAITES VOS JEUX (A - @) 
? E 


HOW MANY CHIPS? 290 
FIRST NUMBER IN SQUARE? 15 


KEG KES KES KES BHR GK HHK heX 
THE WHEEL IS SPINNING... 


KHH KS RGB KH SH HHK SHH HX 


4 
8 

27 
Be 
19 

14 
14 
19 


100 oF 


20 
10 


K#$ KH KG KG SHK HHK SHR dex 

THE BALL STOFFED GN 4 

SORRY, BUT YOU LOST ON THAT ROUND... 
KEE KEE AHS KES BHR BHR HK BK 


AT THE VZ300 ROULETTE WHEEL... 
-»»YOU HAVE 1118 CHIPS 


AES KES KH KH SHE Hk Hk SHE 


MESSIEURS, FAITES VOS JEUX (A - @) 
ed 


HOW MANY CHIFS? 1118 
KES RHE KS KES BER SHA SHK SHR 
THE WHEEL IS SPINNING... 


KHG XKHDG KHS HD PH BHR BHR BHK 


9 
13 
24 
4 
ak 
aS 
JQ 
11 
4 


101 


et 


25 


23 


KHD KHD KES KHS SHAK SHA SHK HHH 
THE BALL STOPPED ON S 
SORRY, BUT YOU LOST GN THAT ROUND... 


X#S Kh KGS KHG BHA SHR SHH HHK 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 


KES KEG KES KHG BH HHK HH HHH 


YOU HAVE RUN OUT OF CHIPS! 


And here’s the listing, so you can FAIT your own JEUX: 


10 REM VZ ROULETTE 

20 DIM BC24):CH=1000 

30 CLS:PRINT:PRINT "AT THE ¥Z300 ROULETTE WH 
= = Eat 

40 PRINT TABCS);"...YOU HAVE" sCHs "CHIPS": GOS 
UB 1010 


162 


20 PRINT: PRINT" MESSIEURS, FAITES 

VOS JEUX fA =~ @" 
60 INPUT A$: TIF Ag="" THEN 60 
79 A=ASC (AB) -44: IF ACL OR A*L7 THEN 60 
80 IF A=17 THEN 860 
90 FOR @=1 TO 24:8(8)=-99:NEXT GO: SOUND Ayl 
100 PRINT: INPUT “ HOW MANY CHIPS"sN 
1190 IF Noi THEN 120 
115 PRINT “I CANNOT ACCEPT THAT BET!“ 

?GOSUB 1010:60TO 100 

120 IF Ne«*CH THEN 130 
125 FRINT “YOU DON’T HAVE THAT MANY! ":GOTO 100 


140 IF @=1 THEN GOSUB 590 
150 IF A=2 THEN GOSUB 600 
160 IF 4=3 THEN GOSUB 610 
170 IF A=4 THEN GOSUB 630 
180 IF A=S THEN GOSUB 450 
190 IF A=& THEN GOSUB 6706 
200 IF A=7 THEN GOSUE 680 - 
210 IF 4*8 THEN GOSUB 4690 
aeOo IF A=9 THEN GOSUB 7Oa 
230 IF A=10 THEN GOSUB 710 
240 IF A=11 THEN GOSUB 720 
su IF A=12 THEN GOSUB 740 
260 IF A=135 THEN GOSUB 790 
270 IF A=14 THEN GOSUB 810 
280 IF A=15 THEN GOSUB 840 
290 IF A=16 THEN GOSUB 850 
300 GOSUB 1010 
S10 REM KEXKKEKEXKRKKEKKE 
320 REM x* THE WHEEL SPINS x 
330 GOSUB 1010:FOR Bei TO So:C=RND(39)-2 
tPRINT TABC(RND(24))3 
340 IF C=-1 THEN FRINT " 00":GO0TO 350 
248 FRINT C 
350 FOR T=1 TO B:NEXT T:sSOUND B/S3,1:NEXT B:rGOSUB 1010 
420 PRINT “THE BALL STOPPED ON"s 
420 IF C=-1 THEN PRINT "DOUBLE ZERO":GOTO 450 
440 PRINT C 
ASO Y2OorE=1 
460 IF B(E)=C THEN Y=1:GOTO 480 
470 IF EX24 THEN E=E+1:GOTO 460 
480 IF. Y=OQ THEN 520 
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WI=INT (ODAN+,. 5) : CH=CH+WI+N 
FRINT:PRINT "CONGRATULATIONS, YOU 


HAVE WON" 3 WI5 "CHIPS" 
GOTO S36 
PRINT "SORRY, BUT YOU LOST ON THAT ROUND" 
GOSUB 1010:FOR Z=1 TO 1000:NEXT Z 


Ir CH 1 THEN 890;REM BROKE 
IF CH?2000 THEN 960:REM BROKE THE BANK 
6O0TO 30 
REM XXaKKKKKR KKK KEKE EKKKEK 
REM ** PLACING THE BETS ** 
INPUT “WHICH NUMBER":B(1):0D=35: RETURN 
INPUT “WHICH TWO NUMBERS";B(1),B42):OD=17: RETURN 
INPUT “WHICH NUMBER IN LEFT COLUMN";D 
FOR E=O TO 2:8(6+1)=D+E:NEXT €:0D=11: RETURN 
INPUT "FIRST NUMBER OF SIX";DsFOR E=o TO 5 
:B(E #1) =D+E:NEXT E 
OD=S:s RETURN 
INPUT "FIRST NUMBER IN SQUARE":D:FOR E=0 TO 3 
tB(E+1) =D+E 
IF E=2 THEN D=D+1 
NEXT E:OD=8: RETURN 
FOR Ei TO 12: B8¢(E)=E:NEXT E:O0D=2: RETURN 
FOR E=1 TO 12: B¢(E)=E+12:NEXT E:0D=2: RETURN 
FOR E=i TO 23: B(&)=E+24:NEXT E:0D=2: RETURN 
FOR E=1 TO 16: B(E)=E:sNEXT E:0D-1:RETURN 
FOR E=i TO 18:B¢(6&)=E+18:NEXT €:0D-1:RETURN 
INPUT “LOW NUMBER AT END OF LINE":D 
FOR E=0 TO 114:BCE4+1)=3*E+D: NEXT &:0D=2: RETURN 
INFUT "LOW NUMBER FIRST COLUMN" :D1 
INFUT “LOW NUMBER SECOND COLUMN";D2 
IF ABS (DI-D2)>1 THEN 7406 
FOR E€=0 TO 11: BCE+1) =S4E4+D1: 8B (E+13) =2kE+D2: NEXT E 
OD=.5: RETURN 
RESTORE 
FOR E=1l TO 16:READ BCE) NEXT E:0D=1:+ RETURN 
RESTORE 
FOR E=1 TO 18sREAD Z:NEXT E 
FOR E=1i TO 18:READ BCE) :NEXT E:0D=1: RETURN 


> FOR E=2 TO 24 STEP 2: B¢(E/2)-Et NEXT Es 0D=1:RETURN 


FOR E=1 TO 35 STEF 2:B((E+1)/2)=E:NEXT E 
:OD=1: RETURN 


PRINTZFRINT "YOU ARE WITHDRAWING FROM THE" 


a7o 
gaa 
BIO 


PRINT "GAME WITH"sCH; "CHIFS” 

SOUND 2,1:SOUND 20, 1:END 

FOR J=1 TO 1S:PRINT TAB(J):"YOU HAVE LOST!" 
:SQUND J,1:WEXT J 


920 GOSUB LO1O;FRINT "YOU HAVE RUN OUT OF CHIPS! ":END 
Gao FOR d=1 TO FrFPRINT YARCT/2)2"YOU HAVE 

BROKEN THE BANK! ":NEXT 
1000 END 


1010 PRINT " 4S KEG KES KE KES AHS RESO 
1020 FOR K=t TO 400:NEXT Kr RETURN 
1040 DATA 1,355, 7,9. 12,14, 16, 18,19, 21, 23, 25, 


27, 30,52, 34,36 


1050 DATA 2,4,6,9, 10,114,135, 15,17, 20, 22, 24, 24, 
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Fun with your Printer 
| |CELESTIA 


The first of the two programs in this section is CELESTIA, which you 
can run either on your TV screen, or on the screen and to the printer 
at the same time. It produces an infinite series of evolving patterns. 

The patterns develop according to the rules of the famous com- 
puter game of LIFE, developed by John Conway while at Gonville 
and Caius College at Cambridge in the UK. Martin Gardiner spread 
the game throughout the world when he wrote about in Scientific 
American in October, 1970. 


In LIFE, cells are born, grow and die according to rules which 
Conway invented. Each cell on a grid (the colony of cells is imagined 
to be evolving on a grid) is surrounded by eight others, and the state 
of those eight other cells dictates what happens to the cell in question 
in the following generation. 
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The rules which govern the evolution of the cells are as follows: 


* If a cell has two or three surrounding it, it survives to the next 
generation 


* If there are three, and just three, full cells next to an empty 
one, a cell will be “born” in that empty space in the next gener- 
ation ' 

¢ Any cell with four of its neighboring cells occupied dies in the 
next generation 


Don’t worry, you don’t have to know the rules, as the computer 
interprets them quite happily by itself. The rules produce patterns 
which are far more attractive (and far less predictable) than you could 
possibly imagine by reading the rules. There is just one extra twist in 
this program, which makes it even more effective. CELESTIA actu- 
ally prints out four colonies each time a colony evolves. The original 
colony is in one quadrant of the screen, and the other three quarters 
of the screen contain reflections of the original one. 


CELESTIA is incredibly effective, as you can see: 


x x * 
x * ¥ ¥ 
KKKK KK KKKK 
K KR xx Xx 
KK K KKXKKAE KK XK 
x Xx K KEKAKKX * kk 
x OX KX K KX «x x x 
K KX KK Xx 
K Xk XK xX 
* XxX xX * Xk X ¥X x x 
x x ¥ KKKKKK K K x 
KK KX KEKKKK KK K 
% KEK KK OK 
KXEX KK KKXKK 
x x x x 
x * Xx x 


ve eee eet bee Hien nL Gen np epee ee ee ree i NO Ef A 


KK KXKK X KK KK K KKKK X% 
K XKKK & xX K KKKK XK 
KK KK KEKKAK XXXX KKKKKR KK KK 
KX RKKKKKKKKK KO ORKKK RK KKKKKREKEK KX 
KKK x x x XX * K KK x 
x K xk K kK K K x 
KEK RKKKKRKKKRKK KK KKKKKKKKKKKK KKK 
KK K KKK K XR KKK K KKK KK K 
KK KR RRK KR KKK KKK K KKK KK XK 
KKK RRKAKKKKKKKK KK RRKKKKKKKAKKK KKK 
x x ¥eE K KER x x 
kx OK x x * x k OK 
KK KKKEKKKKKE RK KKKK OK RKRKKEKKKK KK 
KK KK KKKKRR KKK XKKKKK KK KK 
K OKKKK XK KX KOKKKK X 
KK KKKK X KK XK % KKKK KR 


A ee ee me reer ea Ne ER TE SPY ep ap eT SPE HAR SY a mh 


* KKX Kk x KKK % 
x x ¥ KK X ¥ x 
¥ xk OK 
xX ¥x 
* XXX X x xX K KX x 
¥ x KKK K KKKK ¥ x *X x 9 
x kK X x xx x xx * 
% EKKK x x x x KEXKX *€ 
x KKK x x xk  & KXEK X 
¥ OK K x xx K x x xX 
x x KKK x XXX KK x x 
¥ KKK X x Ox K KKK x 
KK KK 
x x x x 
x x x XK X x x 


kK xk x exe Ok 


er ET TE SP ee hh PP A Yt SA mi A Nee ll 
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This is the listing to give CELESTIA designs on your microcom- 
puter: 


10 REM CELESTIA 

20 GOSUB 450:REM INITIALISE 
ZO GOSUB 60 :REM PRINT OUT 
40 GOSUB 280:REM EVOLVE 

SO GOTO 30 

60 CLS 

80 FOR X=2 TO 9? 

90 FOR Y=2 TO 19 

100 PRINT CHRS(ACX,Y))3 
110 NEXT Y 

i20 FOR Y=19 TO 2 STEP ~-1 
130 PRINT CHRS(A(X,Y))5 
140 NEXT Y 

150 PRINT 

160 NEXT X 

170 FOR X=9 TO 2 STEP -t 
180 FOR Y=e2 TO 19 

190 PRINT CHRS(A(X,Y) 93 
200 NEXT Y 

210 FOR Y=19 TO 2 STEP ~1 
220 PRINT CHRE(CACK,Y))3 
230 NEXT Y 

240 PRINT 

250 NEXT X 

260 IF N=O THEN 640 

270 RETURN 

280 FOR X=2 TO 9:FOR Y=2 70 19 


300 IF A(X-1,Y-1)=B THEN CaC+1 
Z10 IF A(X-1,Y)=B THEN C=C+1 

320 IF ACX-1,Y+1)=B THEN C=C+1 

330 IF A(X,Y-1)=B THEN C=C+1 

340 IF ACX,Y+1)=B THEN C=C+1 

350 IF A(X+1,Y-1)B THEN C=C+1 

360 IF A(X+#1,¥)=B THEN C=C+1 

370 IF A(X+1,¥+1)=B THEN C=C+1 

380 IF A(X,Y)=B AND C<>3 AND C¢>2 THEN B(X,Y)=E 
390 IF A(X,Y)=E AND C=3 THEN B(X,Y)=B 

400 NEXT Y,X 

410 FOR X=2 TO 9:FOR Y=2 TO 19 


110 


ACX,Y) =B (X,Y) 
NEXT Y,X 
RETURN 

REM INITIALISE 
CLS 


PRINT "PRESS THE SPACE BAR":PRINT"WHEN YOQU* RE 
READY TO BEGIN" 


N=1 

IF INKEY$<> " " THEN 490 
PRINT "DO YOU WANT A COPY ON" 
PRINT “YOUR PRINTER (Y OR N)" 
AS=INKEY$:IF AS<> "N" AND AS > 
IF Ag="Y" THEN N=o 

CLS 

B=ASC ("*") sE=AST(" ") 

DIM AC10,20),B(10, 20) 

FOR X=2 TO 9:FOR Y=2 TO 19 
A(X, Y)=E 

IF RND(O)>.45 THEN A(X, Y)=B 
BOX, Y)=A(X,Y) 

NEXT Y,X 

RETURN 


wy 


THEN S30 


LRTI Th sat er te ate et a me et ft yt tt a A i i ” 


REM & SPACES, 34 -'S 
LPRINT:LERINT:LPRINT “ ns 
FOR X=2 TO 9 

FOR Y=2 TO 19 

LPRINT CHRS(A(X,Y)); 
NEXT Y © 

FOR Y=19 TO 2 STEP -1 
LPRINT CHRS(ACX,Y))3 
NEXT Y 

LPRINT:LPRINT " Hs 
NEXT X 

FOR X=9 TG 2 STEP -1 
FOR Y=? TO 19 

LPRINT CHRS&(ACX,Y)) $3 
NEXT Y 

FOR Y=19 TO 2 STEP -1 
LPRINT CHRS(A(X,Y))3 
NEXT Y 

LFRINT:LFRINT ” "s 
NEXT X 

LFRINT 

RETURN 
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DDDPDDDP 


| | BILLBOARD 


BILLBOARD, as you can see from the following sample run, takes a 
message of any length (up to the maximum string length permitted by 
your system) and turns it into a printed message down the side of your 
printer paper. The printed letters can then be used to decorate your 
walls, cut up to form posters, or used however your imagination dic- 
tates. 

You don’t need any further instructions to get great results like 
these: 


Be & & & = a HHH AWM 
& Es) ion) ~ 
e a ca un 
& mma ee we a 724) Y) 
e =") c oa 
faa Ps) a ~ 
& =] = HAH “wv 
RAH “AWW = = ~ and 
H = a> al Fa 
Ht = = = ~ ta 
H “aw wm = = = PH 
H = = ad 
H = = po 
HHH 1Y1 A = = po 
> ad NN NN ON 
> = 
fad p= i) 
> > N 
> > N 
> = ~ 
> NNN NN 
fea fey fu fs Ba meme ooo = ae 
fe, [a=7 [o=9 fo) °o = = az 
fe f=4 on oO °o = = = 
Pe, feu fey fy [~~ oes ~~) i=) Oo = = = 
fr, [a=4 ox Q o = = 
fre AG ie oO fo) = = 
fry 7 om ooo = = 
AAA 1) Ame 
a fy 
a 
=) MAW fm fe 
Qa eae 
a ae @ [a -3) ea ; 
AAA me @ Www) me w@ ww we 


118 


iQ 
20 


This is the listing for BILLBOARD: 


REM BILLBOARD 
REM 


CLS 


INPFUT"ENTER YOUR MESSAGE" ;AS 


B=LEN (AS) 
2 FOR C=1 TO B 
D=ASC (MIDS (AS, C) )-64 


IF D=-18 THEN GOSUB 410:GOTO 130:REM PERIOD(.»> 
IF D=-31i THEN GOSUB 420:GOTO 130:REM EXCLAMATION(!) 
IF D=-32 THEN GOSUB 430:GOTO i30:REM SPACE 


IF D<i OR D224 THEN GOSUB 1000:REM SPECIAL 
GOSUB Soo 

LPRINTINEXT C 

END 

LFRINT"AAAAA" :LPRINT” A A™SLPRINT” A AlN: 


LFRINT" A A" 


LPRINT"AAAAA": RETURN 

LPRINT"BRBBBBRE":LFRINT"BR 8 BY’SsLPRINT"R EB B" 
LPRINT" BE BR" Ss RETURN 

LFRINT " CCCCO":sLPRINT °C C'sLPRINT'C Ge 
LPRINT "C C*’rLPRINT " C C's RETURN 
LFRINT"DDDDDDD":LPRINT"D D"sLFRINT'D Dp" 
LFRINT"D D":LFPRINT" DDDDD":RETURN 
LPRINT"GEEEEEE"!LPRINT"E E E"sLPRINT"E E E® 
LPRINT"E BE": RETURN 

LPRINT"FFFFFFF":LPRINT” FO F":LPRINT" FF" 
LPRINT" FO F'SsLFRINT" F's RETURN 

LPRINT" GGG6G6":LFRINT"G G°:LPRINT"G G" 


LPRINT'G G G":LFRINT" GG G":s RETURN 
LFRINT"HHHHHHH": LPRINT" H°'alPRINT" Hs 
LFERINT" HH" 
LPRINT "HHHHHHH" : RETURN 
LPRINT"T I"sLPRINT"IITIIII's 
LFRINT"E I‘: LPRINT 


235 RETURN 
240 LPRINT:LPRINT"JIJ":L PRINT" J J's LPRINT 'T J” 


S LPRINT" JJGdII":RETURN ; 
250 LFRINT'KEKKEKK'SLPRINT" K"SLPRINT" kK EMS 


LFRINT’ & Ka 
LFRINT“K KK": RETURN 
LPRINT "LLLLLLL":FOR Z=1 TO 4sLFPRINT "L® 
:NEXT Zs RETURN 


LPRINT“MMMMMMM": LPRINT" M"sLPRINT" MMs 


LPRINT” M" 
LPRINT"MMMMMMM" : RETURN 
LPRINT"NNNNNNN": LPRINT" NN": LPRINT" NN" 


sLFRINT" NN“ 
LPRINT'NNNNNNN": RETURN 


LPRINT" OO000":LPRINT"O O"sLPRINT"O 0” 
LPRINT"G O"sLPRINT" OO000"s RETURN 

LPRINT “PPPPPP":LPRINT ” PO P"s:LPRINT" Po oes 
LFRINT ” FP P':LPRINT * PP" s RETURN 

LPRINT" Q0QQQ":LFRINT"G O':LPRINT'O @ Q” 


3 LPRINT" QO Q"sLPRINT” Q@000":RETURN 
LFRINT"RRRRRR":LPRINT" R R"eLPRINT"Y RRR" 
LPRINT" RR R“tlLPRINT'R RR": RETURN 

LPRINT" S SS"sLPRINT"S § S"sLPRINT"S § §" 
LPRINT"S S S":LPRINT” SS S"sRETURN 

LPRINT" T"sLPRINT" T':LPRINT"TFTTTTTT": 
LPRINT” T's LPRINT" T":RETURN 

LPRINT’ UUUUUU"SLPRINT"U"SLPRINT"U"SLPRINT"L"': 


LPRINT” WuUuUUL 


RETURN 
LPRINT " VV¥VV"SLPRINT " VV"SLPRINT "V" 

sLPRINT " vy" 
LPRINT “ V¥VV" 3 RETURN 


2 LPRINT" WWWWWW"sLPRINT Ws LPRINT“WWWWW"sLPRINT "WwW! 


LPRINT” WWAWWW": RETURN 
LPRINT"X X"PLPRINT" XX XX"sLPRINT" = xX" 
zLPRINT" XX XX" 


LPRINT"X X": RETURN 

LPRINT” YY" :LPRINT" Y":LPRINT"YYYY¥" 
sLPRINT" bs 

LPRINT" YY"; RETURN 


LPRINT"ZZ Z":LPRINT"Z Z Z"sLPRINT"Z Z Zz" 
LPRINT"Z Z Z"slPRINT"Z ZZ"sRETURN 


2 LPRINT’.."sLPRINT".. “sLPRINT:LPRINT: LPRINT: RETURN 


LPRINT™!! PPtiMsL PRINT"! ! fll i Ms _PRINTs 
LPRINT: RETURN 

LPRINT:LPRINTsLPRINTsLPRINT: RETURN 

IF D=1 THEN GOSUB i50:RETURN: REM "A" 

THEN GOSUB 140:RETURN: REM "B" 

THEN GOSUB 170:RETURN: REM "C" 

THEN GOSUB 180:RETURN:REM "DD" 

THEN GOSUR 190:RETURN:REM "EF" 

THEN GOSUB 200:RETURN: REM "F“ 


~ 
Ti 
Oooo 


bh HOH E 
Oa bets 
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340 
wea 
bet=1@) 
GPa 
600 
4610 
520 
&30 
640 
650 
640 
679 
680 
90 
7OO 
7iad 
72a 

730 
740 


7EO | 
END 


999 


IF 


D=7 THEN GOSUE 
b=8 THEN GOSUB 
D=9 THEN GOSUB 


D=10 
D=11 
D#12 
D=1s 
N=14 
D=15 
D=15 
D=17 
D=19 
D=l9 
D=20 
De21 

=22 
D=235 
H=24 

ba 
D246 


ooo RETURN 


DDDDDDD 
D 


D 
D 
D 


AWW 


v7 
QV 
2) 
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“] 
vw} Ww 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


DDDDD 


MMMMMMM 
M 
MM 


GOSUE 
GOSUB 
GOSUE 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUE 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUE 
GOSUB 
GOSUB 
GOSUE 
GOSUB 


IIIIIII 


I 


M 
MMMMMMM 


210:RETURN: REM "G" 
220:RETURN: REM “H" 
2a0sRETURN: REM "I" 
240: RETURN: REM "J" 
250:RETURN:REM "K" 
260: RETURNS REM “LL” 
270:RETURNSREM "MM" 
280; RETURN: REM "N" 
290: RETURN: REM "QO" 
SOO: RETURNS REM UF" 
210:RETURN: REM “G" 
S20:RETURN: REM "R" 
330:RETURN: REM "S" 
340:RETURN: REM “T" 
S50:RETURN: REM "U" 
SG0:RETURN: REM “V" 
S70:RETURN: REM "W" 
380: RETURN: REM "X" 
S90:RETURN: REM "Y" 
400; RETURN: REM "Z" 
H ooo ne 
2) oOo 
oO be 
=) wa 
=) M 
oO o Mm 
Hi oOoOD”o M4 
HHA E+ 4 Bt be Et 
4 e 
H a 
A eH 
H & 
4 e 
He eH & 


HHHHHHH 


H 
H 
H 


HHHHHHH 


Some games could not have existed without computers. 

Think of the whole range of Space Intruder types of games and 
the Pacperson ones, These could have not come into being before the 
computer—using a TV-like screen for output—was developed. Many 
other games, of course, predate the computer by thousands of years. 
However, more and more of these traditional games have now been 
computerized, with board games being as popular with computer 
games players as they were with players in precomputer days, 

In this section of the book, we have a generous crop of board 
games: 


* GOMOKU 

* FOUR IN A ROW 

*¢ CHECKERS 

+ AWARI 

* KNIGHTSBRIDGE 

* REVERSI (OTHELLO) 


W7 
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[| GOMOKU 


You'll find GOMOKU an easy game to learn, but one which is almost 
impossible to win. The computer plays extremely well in this pro- 
gram, which is based on one written by Graham Charlton. 


oa a tt ea ee 


You have to try to get five of your pieces (the H’s) in a row in any 
direction, while the computer is trying to do the same. 
Have a look at these board positions from the start of one game I 
played against the program. Studying the printouts will show you how 
the game unfolds, and will show you how to play it: 


1234567 8 1234567 8 
Vie eee oe ee es eS OT MD ne es ig? ee ear we 8 
2 ga Mexee ste Be ee, ce sy ce OP Ty. er ete ee aes as “2 
Dee an fe Cote pene 8 3.0. k, Veo OY Cs @ Maire a. 3 
Bi. ee ea ee A Dg Wig Mal. ie cae Wal Serta 
§ .« «© « «© Bee « 5 Bay o Meg se He a oe 5 
GO NES. e4 uk a SPS OE 6 ob ~@ 2 66s Gwe. 6 
T. fh Hie ei ce OF Tt Pe eH Mow as ae OF 
B. -ts b eo Cee ww, 18 ONS 2 ee 4 ee OS 

1235567 8 1234567 8 
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SAI AM Sw fo 


—_ «@ » ° e . 4 * ° a 


Ne © © © © © @ « 
we Me @¢ « eo © oe Ww 


He OMe QAQe = 
We Mme «© © ew 


A GOMmOme« = © 2 wA 


~—Jje Te Mee © @ = 


wee 2 © Te ee me 


OWA ew Nh ~ 


ONAUM SW = 


—_* © © © © © © © ot 


Mee © + © we ee yD 


We He 6 + © ee ww 


Fe AaAWaae + 
Vile moms © eo oe Ww 


AOmMmMaer+ee eo om 


H= Te © Ge 6 «+ OO 
QAI AW Fwh a= 


woe Mmm Me 2 2 4g 


Here’s the listing for your very own game of GOMOKU: 


10 KEM GOMOKU 
20 GOSUE 
30 GOSUB 
40 GOSUB 
SO GOSUE 
60 GOSUB 
70 GOSUEB 


FRINT@415, "FLEASE ENTER YOUR MOVE... 


780 
130 
270 
P30 
350 
130 


345 6 7 8" 


ae H tt 


"TOWIN!''":GOTO 1040 


“ 
’ 
Wy 

3 


0 © 


7 9" 


#O IF Us3 THEN PRINT: PRINT 
90 GOTO 40 

100 E=A 

110 E=E+N:IF ACE)<3Z THEN RETURN 
120 KsK+1:GOTO 110 

130 FRINT CHR (28) 

150 PRINT TAB(7)5"1 2 

160 FOR A=1 TO G:FPRINT TAB(S)3A3" 
170 FOR Be2 TO 9? 

180 MeACARLO+E) 

i190 IF M=C THEN FRINT "C 
200 IF M=H THEN PRINT 

210 TF M=4& THEN PRINT ". 
220 NEXT B 

230 FRINT A 

240 NWEXT A 

250 PRINT TABS7)S"1 2 

260 RETURN 

270 PRINT: PRINT 

280 

290 INPUT G 

300 G=6+1 


“SPRINT 


S10 
aet) 
BO 
S40 
a0 
240 
S70 
360 
BO 
40 
410 
420) 
AG 
440 
45a 
460 
470 
ABO 
490 
Sag 
wld 
ao 
He ic 
Ban 
50 
aT=1 
B70 
58o 
aFQ 
600 
61a 
620 
630 
540 
650 
460 
&79 


680 
&9O 
700 
710 
720 
730 


IF Glil2 OR Gr89 OR A(Gie246 THEN 2a0 
ZH: PRINTO414, L$: PRINTO448, LS 
ACG) =Z 
RE TURN 
A=(5 
LO 
FOR X=} TO 4: kt: N=X (XxX) 
GOSUB 100 
Ne-N:GOSUE 160 
IF EEL THEN Lek 
MEXF xX 
IF oS THEN PRINTSPRINT "YOU WIN! !":END 
T=1 
IF Tes THEN Z=C 
IF T#2 THEN ZH 
G=O2H1202L=0 
FOR A=iz TO B89 
Peso 
IF ACA) 2346 THEN 600 
FOR X=1 TO 42k =O0:N=X (X) 
GBOSUB La0 
N=-N;iGOSUB i000 
IF Kel THEN Hi=0: =k 
IF Lek THEN S70 
IF T=i AND Le4 GR (¢T=2 OR T=3) AND Le? THEN $70 
M=M+i 
NEXT xX 
IF Mf=H) TREN 400 
Hi=M:G=A4 
NEXT A 
TF Hies?0O THEN 680 
T=T+1l:IF Tes4 THEN 440 
A=1 
G=RND (77)413 
IF ACG)=46 THEN 680 
A=At+121F A100 THEN 640 
FPRINT:FRINT “I CONCEDE THE GAME": 
FRINT "TO A MASTER! !":END 
AtG)I=C 
Z=Cs A=G:L=0 
FOR X=1 TO 4 
n=O) 
N=X (X) 
GOSUB 100 
121 


740 N=-N:GOSUB 100 
750 IF K>L THEN Lek 
760 NEXT X 
770 RETURN 
780 CLSsLe=" "SREM 25 SPACES 
790 DIM A(L00),X(4) 
800 FOR C=i TO 8 
810 FOR B=2 TO 9 
820 A(CK1O+E) =44 
850 NEXT B 
840 NEXT C 
B50 FOR @=1 TO 4 
860 READ Z:X(Q@)=Z 
870 NEXT @ 
880 DATA 1,9,10,11 
890 H=EASC("H") :C=ASC ("CO") 
900 PRINT:PRINT "ENTER “Y* IF YOU WANT THE " 
910 PRINT "FIRST MOVE, "N° IF YOU DON’T" 
920 N=O 
9350 NeN+1 
940 A= INKEYS 
950 IF AS<>"N" AND ASS >"Y" THEN 930 
960 CLS 
970 IF AS="¥" THEN RETURN 
980 FOR J=1 TO RND(12) 
990 READ Z 
1000 NEXT J 
L010 ALZ)=C 
1020 RETURN 
1030 DATA 34,35, 44,44,47, 54,55, 56,57, 66, 75, 84 
1040 SOUND 16,3:SOUND 146,2:SOUND 13,4 
:SOUND 18,2:SOUND 16,5 
1050 SOUND 13,6:END 
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| |FOUR IN A ROW 


In this game, FOUR IN A ROW, as its name suggests, the aim is to 
get four of your pieces (the H’s) in a line in any direction, before the 
computer (using the C’s) manages to do so. 

You indicate your choice of move by specifying the column in 
which you want to move your piece. The piece then drops to the 
lowest available position within that column. 

The computer plays this game fairly well, and surprisingly 
quickly, considering the number of times it can go through those loops 
within the program. — 


a a tee 


I was not particularly pleased when I finished the first hand-writ- 
ten version of this program, because it seemed to me that I had taken 
a “brute force” spproach to solving the problem. I was sure there 
would be a more clever way to do it. However, I continued with the 
program, and then entered it into the computer. It won the first game, 
even though it played a little oddly, so I knew I was onto a winner, 
despite the programming approach. Then, when thinking about it 
later I realized that if the program was correctly structured (as it was), 
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had no redundant code (and it hasn't, as far as I can see), ran quickly 
and well, it did not need “fiddling” to make the programming more 
tricky. Transparent code is always better than overly clever con- 
voluted code which, although it may occupy less space, and may run a 
few microseconds faster, is almost impossible to modify. 

So the program you have here is my “brute force” version, It is 
generously supplied with REM statements so you have little trouble 
in working out what each section of code does. It should also prove 
fairly simple to modify, once you have played a few games with it in 
its present form. 

In this version of FOUR IN A ROW, the computer always allows 
the human to have the first move, and bases its initial move on that 
made by the human. You may wish to modify the program so that 
there is an option for the computer to have the opening move. 

Before we get to the listing of FOUR IN A ROW, here’s one 
game played against the program: 


Saheeeeica sk ae ae 
ober, cert te. Forse ee Kar ee ete et ve 
1234567 12345 67 
ee ee oe 
~ HHC oh ie 
a . HCHHC, , 
a aS On eiBe og 
ane ; (a eee CCHHH, , 
~-RCCC.. HHCCccC.,., 
HC HHC,. HC HHC.H 
123456 7 tT23 4567 


semmaname 


yarns 
Wmarmandn 
Fmaoamoaazra 


Wagamama « « 
AO mas 
Armmo ams 


~ + CC oe 
| es ee * 
CcCH. ae 
CHACH . H 
CCHHHCC 
RHCCCHH 
HC HHCCHH 
1234567 


This is the listing for FOUR IN A ROW: 


to 
20 
IO 
40 
ate) 
&0 
7O 
BO 


Oc 


too 
hia 
120 
120 


REM FOUR-IN-A~ROW 
GQSUB 1990:REM INITIALISE 


GOSUB 
GBSUB 
GOSUE 
GOSUE 
IS0SUB 
GOSUE 


B60: REM 
680: REM 
7380: REM 
8603 REM 
680: REM 
110;REM 


UFDATE BOARD 
WIN CHECE: 
HUMAN MOVE 
UPDATE BOARD 
WIN CHECK 
COMPUTER MOVE 


PRINT@220,L4:GOTO 30 
REM XXKKKKKKKKKKE 
REM COMPUTER MOVE 
PRINTOS20, "FLEASE STAND BY FOR MY MOVE..." 


Bela 


140 BeB+1 
IF ACB)=-9 THEN 180 

IF ACB)=C THEN X=C2GOTO 210 
IF ACK) =H THEN X=H:GOTO 210 
IF B&77 THEN 140 


150 
140 
170 
180 
190 
Oo 
210 
meG 


wl) 


GOT 


430 


REM XXRRKKKKKKAKK KKK AER KK KKKKKKKE 


TF AC 


B+) =x 


240 IF ACE-1)=X 


IF AC 


260 TF AC 


IF AC 


+1) =X 


B-1) =X 


+1) =X 


REM FOUR IN & ROW DANGER/CHANCE? 
REM ACROSS 


AND A(B+2)=XAND ACB) =E AND ; 
ACH+i2)<>E THEN i220 


AND ACE -2)=xX AND ACB-3)=E AND 
ACE+7) <2 THEN 12c 

AND A(B+2)=x AND A(B~-1)}=E AND 
ACH+9) <5E THEN 1240 

AND ACEH+2)=X AND ACE+1)=E AND 


ACEt+Li}<sE THEN L250 


AND A(B-1)=X ANDA(B+2)=E AND 
ACB+12)22E THEN 123460 
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IF ACB+1)=X AND ACB-1)=X AND AC(B-2)=E AND 
ACB+8)<2E THEN 1270 


IF A(B=-1)=X AND A(B-2)=X ANDA(B+1)=E AND 
A(8+11)<>E THEN 1250 
REM DOWN 
IF B>2O THEN IF A(B-10)=xX ANDA(E+20)=X AND 
A(B+10)=E THENL S00 
REM DIAGONALS 
IF ACB+i1)=X AND A(E4+22)=X ANDA(B-11)=EAND 
AC(B-1)<>E THEN 1240 
IF A(B+9)=X AND A(B+18)=X ANDA(B-9)=E AND 
A(B+1)<>E THEN 1280 
REM XXKKXKKEAEKRERKKK 
REM MAKE/BLOCK THREE? 
REM ACROSS 
IF ACH+1)=X AND A(B+2)=E ANDA(B+12)<>£ THEN 
MOVE=B+2:G0TO 450 
IF A(B+1)=X AND ACB-1)=E AND ACE+9)<3E THEN 
MOVE=B-1:GOTO 450 
IF A(B~1)=X AND A(B-2)=E AND A(B+8)<2E THEN 
MOVE=B-2;G0TO 650 
REM VERTICAL 
IF AC(B+i0)=X AND A(B-10)=6 ANDA(B)<>E THEN 
MOVE=B-10:G0TO 450 
REM DIAGONAL 
IF A(B+9)=X AND ACE-9)=E AND A(B+1)<>E THEN 
MOVE=B~9:G0TO 450 
IF Bb1i THEN IF ACE+11)=XANDA(B~11)=E£ AND 
A(B-1)<>E THEN 1290 
GOTO 180 
REM XHXKKKARKRKE 


REM SINGLE MOVES 
FOR N=i TO 3 
MCN) =O 

NEXT WN 

COUNT=0 

FOR B=11 TO 77 


IF ACBI2S3C AND ACB) <>H THEN 600 
TF ACB+1)=E AND AC(B+11)<>E THEN COUNT=COUNT+1 
sM<{COUNT) =B+1 


IF ACBR-1)=E AND ACBR+9)<23E THEN COUNT=COUNT+1 
:M (COUNT) =B-1 


IF A(B~10)=E AND AC(B)<>E THEN COUNTS=COUNT+1 

iM (COUNT) =B8-10 
IF ACB-11)=E AND ACB-1)<SE THEN COUNT=COUNT+1 

= M(COUNT) =B-11 


IF ACB-9)=E AND ACB+1)<>3E THEN COUNT=COUNT+1 
:=M(COUNT) =B-9 

NEXT B 

IF COUNT< +0 THEN 4646 

PRINT “I THINK WE SHOULD CALL IT A DRAW" 

PRINT: PRINT: PRINT: END 

MOVE=M (RND (COUNT) > 

A (MOVE) =o 

RETURN 

REM WIN CHECK 

X=H 

B=10 

B=E+ 1 


IF A(B)<>X THEN 770 
IF A(B+1)=X AND A(B+2)=X AND A(B+3)=X THEN 800 
IF 230 THEN IF A(B-10)=X ANDA(E-20)=X AND 
A(B-30) =X THEN goo 
IF B233 THEN IF A(B-11)=X ANDA(B-22)=X AND 
A(B-33) =X THEN 800 
IF E227 THEN IF A(B-9)=X AND A(B-18)=X AND 
A(B=27)=X THEN 860 
IF B&77 THEN 710 
IF X=H THEN X=C:GOTO 700 
RETURN 
REM WIN FOUND 
PRINT 
IF X*H THEN FRINT "YOU'VE BEATEN ME, HUMAN!" 
IF X=C THEN PRINT "I'VE DEFEATED YOU, 
HUMAN! "“:SOUND 14,3 
IF X=C THEN SOUND 14,2:SQUND 13,4:SOUND 
19,2:SOUND 14,5 
IF X=C THEN SOUND 13,6 
END 
REM Ck kKK KK KKK 
REM UPDATE BOARD 
FRINT CHRS(28): 
FOR K=10 TO 70 STEP 10 
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BQ PRINT TABS) 3 

900 FOR J=1 TO 7 

910 PRINT CHR#(ACK+3I) 25" 25 

920 NEXT Js PRINT 

O20 NEXT & 

940 FRINT TAB(S)s"1 235 435 6 7" 

950 PRINT: PRINT 

Y460 RETURN 

970 REM XXKEXKKKKK 

980 REM HUMAN MOVE 

990 PRINTR268, "YOUR MOVE... "SPRINT 

1000 PRINTOS20, "WHICH COLUMN DO YOU WISH TO” 

1010 INFUT “MOVE [NTO"sJ 

LO20 Za 

LOBQ Z2Z+1OsPRINTO298, Lbs P RINT C#:PRINT Ls 
PRINT La:PRINT L& 

1040 IF ACZ+10)2E THEN 1a30 

1050 IF ACZ)=sE THEN AZ) sHtRETURN 

1060 PRINTOSB4, "YOU CAN’ T MOVE THERE" 

in7o GOTO toad 

LOB8O REM XKKKXKKKKKX 

1990 REM INITIALISE 

1100 CLS 

L110 DIM AC1O09) .M(30) ,F (5S) 

1120 E=46 

LiSQ He7 25 C67 

2140 FOR Bt TO 109:A¢B) SE 

1150 De=B-1LOxXINT (B/10) 

1160 IF Deo OR D>7 OR Beil OF E77 THEN &(8) *-9 

1170 NEXT & 


1180 Lte" " 
iREM 21 SPACES 
1190 RETURN 


1220 MOVE=B+3:GOTO 650 
1230 MOVE=H-3:GOTO 4650 
1240 MOVE=E-1:GOTO 650 
1250 MOVE=B+1:GOTO 650 


1260 MOVE=8+2:G60TO 46So 1280 MOVE=R-9:G0TO 650 
1270 MOVE=B-2:G0TO 450 1290 MOVE=R-11:GOTO 450 


1300 IF ACh+4+20) 25°F THEN MOVE=E4+tos 
SOTO 650 ELSE 330 
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(| SHOGUN 


SHOGUN is based on the Japanese board game HASAMI SHOGI. In 
this game, generally played on the corner of a GO board, you move in 
any direction (forward, backwards, or sideways) in a straight line. Diago- 
nal moves are not allowed. As well, you can jump over a piece (again ina 


= 


oat 
he Lie we i mn flor abe haga 


straight line), You can jump over your own pieces, or an enemy piece. 

The jumped piece is not removed from the board. You capture a 
piece by squeezing it between two of yours. That is, you get one piece 
of yours on either side (except along a diagonal) of a computer's piece, 
and it is removed from the board. A piece is not captured if it moves 
between two of the opponent’s pieces. 

There are no double moves. You do not get an extra move fol- 
lowing a capture. In the original game, the aim is to remove all your 
opponent’s pieces from the board. However, this is a fairly slow game, 
and could take an eternity if played against the computer in this way. 
Therefore, I've written it so that the game is won by the first player to 
capture six of the opponent’s pieces. 

You'll find that the game will more or less teach you how to play 
it just by watching how it moves. Don’t forget the fact that you can 
jump over your pieces, or the computer’s pieces. This is a recom- 
mended tactic to get pieces well out into the board near the beginning 
of the game to get the game moving. 


1234546789 
Fececccrcccct! 
HO CCCCC Ct CH 
GREK Ke kK Ke Hk KG 
FeK KX KK KR RK KF 
ERK KK AK KK KE 
Dek * * & K Kk *KOD 
Cee RE KK KK RHE 
RHHHHHAHAAHHH SB 
AHHHHHHH AHA 
123456784 


VZE002 0 HUMAN: & 


SKBTORLWoUgSE 
LLL mM MH HM HTT 


0 


i a 
CUM eee Ke TICD 
MOUs eM MHMXEON 
WeKOU MRM BRT SG 
WOM ee eH TT 


HUMAN s 


O 
FROM (LETTER,NOG) ? AS 
TO PF C3 


. 
TUL MM MH HIT 
' OO C3 me x MM MTT 
MO ee ee TT 
= 


MY rat i 

+O Lj M3 MM HT mt 5 7 

N = 

HTOoOnLwaAuad 4 SHTGuwwWeRoad¢d > 

POD exe Hm Me HTH i 

BOW «eve ee TID 3e sSTOLWwUAUoOE 

BOD 2 me HH TION Eo. Se UO we RM MR TIC 
WeEiLU xe eM MT IESG Zon BOxeKe HO Torx Hee OD 
NOUV wR Me HRKHTIN = ROxD «exe TEEN 
+tOU eee ex rig ia OKO K ON THEY 
MOU ee mee HT IK i WI CO x O se % TF 2 3 9 1) 
MOO * ee RM TIN ep tM eMM OOK RTI S 
AOL % eM MMT THA FI i? CI £3 36 2e 26 ve OT xe Mm 
eTerwaoad Sas tT) C2 0) 9 26 TD xe I se Me ty 
rar mM eRUO we MM MTT H 


SiOuUwoowEs 
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W 


is 
at 


HUMAN: 


i 


TO 7 DS 


VZ3002 
FROM (LETTER,NO)? B 


FROM BS 


WHoAo dd 


o 
“MeN eR TT 5 
“ere eo a 
“ee TTee Bt 
xeLextas Fan 
= WwW 
Ti<x*f ” 
ir t- 
Ree TE i 
Se oO 
a a a a oa as 
eH eMT Te ten a 
eee Tre 
mw Ee 
Wai & -OoOgd 
th ic 
Li i 
HTOALbLw Av oe iS Se TOMwwoadumeas 
Re Me MMH TIP ee o *% 0 0) oe 3 we He OT HO 
OUx *® OTT ee HO eo MOUx xO Toe *m 
BOs Oe eH Te at BO x Be BRMR OT Te 
GexOD RMD RDG Zon OeeOX OX TRIG 
WrOxX Oe Tee HH ae WO a ©) 96 ae OT ee HI 
tex xe OO B® TIT t aH 5 tee MORO TT ey 
Se 
it OO 6 ese TO eK: oe PeOoOse Ke TT ee 
HUD ee eT Te eT Sac MOU ee DeLee 
4s e2 OO © 8 8% TT a oe ee ee 
Mz 
HEroOuUwWwatowm ae sHTOnwWoontd 
bit 


o 


HUMAN: 


FROM (LETTER,NO)? B? 


FROM BS TO ? C9 
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1 


ZzO0: 


Vv 


12345 6789 
FRO xX CkCCRKI 
HeOCcC xk xk kK KEOH 
G*x* *C*x* COX KCE 
FO x x Ck kKKCOKE 
EX HX KK KKH RE 
De kHC «CCH xD 
CHHAHH *HAHKHC 
BH kK KH ®& * HH k SE 
AX KR KX KHER KXKXA 

izsa4365789 


VZ3008 2 HUMAN: 0 
FROM (LETTER,NO)? Bi 
FROM B1 TO ? Di 


Here’s the listing for SHOGUN: 


10 
wa 
ie) 
40 
Koi) 
&Q 
70) 
8O 
OO 
Loo 
1190 
1236 
123 
120 


wit 


LSS 


140 
145 


150 
169 
170 
172 
1735 


180 


REM SHOGUN 
REM FOR THE INSCRUTABLE VZ300 
GOSUB 790 
GOSUE FO 
GOSUB 460 
GOSUB 630 
GBOSUER 440 
GOTO 40 
REM CAFTURE 
R=99 
TF ACAI#>0 THEN 190 
TF A(A~1LO><>E THEN 130 ; 
TF ACA-9) =H THEN IF ACA-8)=C THEN BeA-10:GOTO 350 
TF &@(A-10)<°E THEN 140 
IF AtA-11)=H THEN ITF A(A-12)=C THEN BR=A~10 
:GO0TO 350 
IF ACA-1Q0)¢ 28 THEN 150 
IF ACA+11)=H THEN TF A(A+12)=C THEN B=A-10 
:GOTO 350 
Be] 
IF At2kC (CB) 21 GR A+2xO(8) 599 THEN 180 
TF ACAtC(B)) <> THEN 180 
IF ACA+24C (BD) 25H THEN 180 


IF ACA+ZSKC(B)) =O THEN A(A+24C (BE) ) Es CS=CS+1 
2GOTOS46 


IF Bé4 THEN B=B+1:GOTQ 160 oe 


190 
200 
210 
aed 
ano) 
240 
250 
260 


270 
280 
290 
295 
SOO 
310 
320 
30 
S40 
Saber ©) 
360 
270 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
490 
BOO 
510 
B2O 
B30 
740 
beter) 
540 
S70 
BIO 
00 
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IF AvLii THEN A=Q-1:GOTO 110 
REM NON-CAP TURE 

CNT=0 

CNT=CNT +1 

ASRND (88) +11 

IF A(A)=C THEN 270 

IF CNT<200 THEN 220 

PRINT “VZ SHOGUN MASTER":PRINT I GIVE 

aa YOU THE VICTORY! "END 


IF At2xO (CB) <1t1 THEN 3o0 

IF ACAtHC(B))<eC OR ACAtC (B08 5H THEN 300 

IF A(At+2k0 (CB) =E THEN Be At2*xC (BR): GOTO 350 

EF @(AtC(B))=E THEN 330 

IF B<4 THEN B=B+1:GOTO 280 

GOTO 250 

REM VZ200 MOVES 

B=A+C (B) 

Rizb-iOxk (INT (B/10) > 

ACB) =C: ACA) KE 

IF Bi>? THEN 390 

IF A(B+1)=H AND ACB+2)=f THEN A(E+1)=E:CS=C95+1 
IF Bi<3 THEN 410 

IF A¢(B-1)=H AND ACB-2)=C THEN A(B-1)=E 2: 0S=CS+i 
IF A+89 THEN 430 

IF ACB+19)=H AND ACB+20)=C THEN A(B+10) =E:CS=CS+1 
IF Ac<29 THEN RETURN 
IF @A(B-19)=H AND 4¢(8-20)=C THEN A(B-10) =b;CS=f5+1 
RETURN 

REM BOARD PRINTOUT 

CLS - 

FRINT TAR(S)5s"1 23456578 9" 

FOR M=9O TO 10 STEF -16 

PRINT TAR(3S) s CHRE(M/10+64) 5" “3 

FOR N=1 TO 9 

PRINT CHR CACM+N) Da" "s 

NEXT WN 

FPRINT CHR (M/10+64) 

NEXT M 

PRINT TAB(S)3"1 2345 6 7 8 9" 
PRINT&SERINT TARCS)s"VZ30081 "CS" HUMAN: “HS 
IF C536 OR HS>6 THEN 4610 

RETURN 


GOO 
S1a 
920 
PSO 
340 
9So 
950 
870 
Fao 


FF CS?HS THEN PRINT: PRINT "ZI WEN! ":SQUND 5S, 1:2 END 

FRINTIPRENT "YOU WIN! ":SOUND 10, 2: END 

REM PLAYER MOVE , 

INPUT "PROM (LETTER, NO.) "7A 

IF Ag="S" THEN END 

IF LEN(A$IS 32 THEN 6406 

PRINT "FROM "44" TO “3;:INPUT BS 

ITF LEN CES)<22 THEN 670 

AxlOk (ASC (AB) -64) +VAL (RIGHTS (AS, 1) ) 

B= 10x (ASC (BS) -64) +VAL (RIGHTS (BS, 1)) 

Y=aVAL. (RIGHT# (BS, 1) > 

A CED eH: ACA) FE 

IF ACB+1)=C AND ACE+2)=H AND Y<=7 THEN ACB+1)=& 
sHS=HS+1 

IF @(B-1)5C AND ACB-2)5H AND Y2=3 THEN A(B-1)=E 
tHS=HS+t 

IF B>79 THEN 770 

TF ACH+10)=C AND ACB+20)=H THEN ACB+10) =EsHS=HS+1 

IF 831 THEN 780 

IF A(B-iO)=C AND ACB-20)=H THEN A(B-10) =EsHS=HS+1 

RETURN 

REM INITIALISE 

CLS:PRINT: PRINT 

IF INKEYS$2="" THEN 805 

PRINT " PRESS ANY KEY ON YOUR YVZ300" 

N=l 

N=N+1 

IF INKEY$=""9 THEN 830 

CLO:PREINT " PLEASE STAND BY...":SOUND 147,1:SQUND 8,1 

FOR J=1 TO Ns A=RND(10)sNEXT J 

CLS 

DIM ACL29),.C0(4) 

H=729Cl=G72: E42 

FOR Z=1h TQ 29 

IF 220 THEN Z=21 

AtZ) 5H 

NEXT Z 

FOR Z=31 TO 79 

EF LOKINTCZ/10)=2 THEN Z=Z+1 

ACZ) SE 

NEXT Z 

FOR Z=81 TO 99 
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990 IF Z=90 THEN Z=94 
1000 ACZ)=C 

4010 NEXT Z 

1020 HSs0 

1030 CS=0 

1040 FOR Z=1 TO 4 
1050 READ C(Z) 

1G40 NEXT Z 

1070 DATA ~10,-1,1, 40 
1080 GOSUB 4460 

1090 RETURN 


Tee eR KE OOH 
UrIiseweweexen ny 
Tee x MHOC 
lm Tox mw 3 Mm 6 9 
OTT we ee BHO 
WMERMsxse x kK x OO 4 


Ortixee ae Hee 
GM wee eeu Os 


ae 
~~ 


PrOOOT to iy 
a a a es 


ho 


b 


VZ2003 0 HUMAN: 0 
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|] CHECKERS 


The game of CHECKERS has a long and honorable history. R. C. Bell 
(in his book Discovering Old Board Games, Shire Publications, Ayles- 
bury, UK, 1980) says it was invented around 1100, “probably in the 
south of France, using Backgammon tablemen on a chequered chess- 
board with the Alquerque method of capture” (pp. 35-36), The 
Encyclopedia of Sports, Games and Pastimes (Fleetway House, 
London, c. 1935) puts it much further back in time: “Forms of it were 
known in ancient Egypt, Greece and Rome, while the game was played 
in the mid-seventeenth century much as it is today” (p. 237). 


F ? Pe. - = Tl : - 
= - : be a i a - i 
co Se a || = 
1. = iiey A | . my * a . 
Sa r mT F i _ - - 
= uy k d 7 te “ Pt 
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Valli rf ly a Pr Te ae | 
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Regardless of its age, it is a very popular game around the world, 
with many European countries having regional variations on the game 
of their own. Continental! draughts (checkers is generally known as 
draughts outside the US), for example, is played on a board of 100 
squares with each player starting the game with 20 pieces. It was 
developed in the early 1700s. 

This CHECKERS program plays the game you are probably 
most familiar with. It plays swiftly, and reasonably well, although its 
lack of endgame strategy often leads to a dramatic collapse in the final 
moments of a game, 

CHECKERS is played between you and the computer. Each of 
you is attempting to take (that is jump over to capture, then remove 
from the board) the other player’s pieces, or to confine the opponent's 
pieces sc no more moves are possible. 
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The game is generally played on a board with 64 squares, which 
are alternately light and dark. In this program, the board (as you can 
see from the sample game we have shortly) is a series of dots, with 
your pieces shown as H’s (for human) and the machine’s pieces as C’s 
(for clever). 

When the game begins, you’re at the bottom of the screen, play- 
ing up, and the computer is at the top playing down. As the program 
is currently set up, the computer always has the first move. If you 
want the first move then delete line 50. 

All moves must be made along diagonals. Individual pieces can 
only move forward, that is, toward the opponent's starting side. Pieces 
are converted into “kings” when they reach the back rank across the 
board. Your kings are shown as K’s, the computer’s kings are dollar 
signs. Kings can move either forward or back. After capturing a piece, 
by jumping over it into the vacant square immediately behind the 
captured piece, you can move again if there is a further capture which 
can be made. 

Here is a series of board positions from one game I played 
against the program: 


COMPUTER: 0 
HUMAN: 0 
1234567 8 COMPUTER: 0 
8 .¢.¢C.c.c 8 HUMAN: 0 
7c¢C¢.C.C,.C., FT 
6 .c. ~ ©. C 6 
5 . » CC, » 5 1234567 8 
ko, « * e 4 8 .C. »- €.C 8 
3 H.H.H.H. 3 7¢.C.,C,.C. 7 
2 .H.H.H.H 2 6. -€.C.C 6 
1H.H.H.H. 1 5 ¢. ©. » 5 
123%567 8 4 os. H. . - H 4 
3 » H.R.H. 3 
2 .H.H. + H 2 
1H.H.H.,H. 1 
12346567 8 


COMPUTER: & 
HUMAN: 4 
12345678 
Bac te AS 8 
7 ~H.C.C. T 
6 &..~C. @ 5.66 
5 « > - ©. § 
Re a oe 
3 re Sa 8 
a oe ee T 
ae oe eee eee 6 
12345678 ? 
3 
2 
COMPUTER: . 
HUMAN: 10 
12345678 
ness < : 8 
7 iH. * « 7 
6. ge 8 Ge a we 6 
5 ae ee « . 5 
4, ° 2 s 4 
3 Ye _ XK 3 8 
2 ¢ . a - 2 7 
1 ° . ° . 1 6 
12345678 5 
4 
3 
2 
1 


This is the complete listing for CHECKERS: 


10 REM CHECKERS 
20 GOSUB 1010:REM INITIALISE | 


1 


SQ REM DELETE LINE 30 FOR HUMAN 


40 REM TO HAVE FIRST MOVE 


COMPUTER: 
HUMAN: 


e (|’a¢ Ww 


* 
Qe« 


Nh 
tw 
P~ ¥ 
wi 
Ae 


COMPUTER: 
HUMAN: 


Ns Ge 
e 


no 


“3 
fe] 


Ce 


“m+ m+ Oo. 
me we me Ge 


11 
10 


Me 


“~NW Fu n=-1 @ 


—~ NW EUW A=] o 
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at) 

&Q 

7Q 

ea 

90) 

LOO 
116 
120 
1350 
140 
150 
140 
170 
LEO 
190 
2QQ 
210 
230 
240 


in] @) 


260 
279 
280 
290 
BOO 
310 
320 
BO 
340 
350 
340 
370 
Sao 
390 
400 
4190 
420 
450 
440 
450 
4a0 
470 
430 


BOTO 9O 

REM KRXRKKKK AKA RRK EKA KKK KEK 

GOSUB 600:REM PRINT BOARD 

GOSUB 760:REM GET AND FRINT HUMAN MOVE 
GOSUB 600:;REM PRINT BOARD 

GOSUB 130:REM MAKE MOVE 

GOTO 70 

REM KXXKKKXXKAKEKRKKKKAKKKK 


FOR X=1 TO 10:S(X)=0:NEXT X 
SC=O: A=89 
AsA—1 


IF @¢(A22C AND Q@CADE OC K THEN 240 

B=O:I1F A<29 THEN B=2 

ReB+] 

M=A+N (B) 

IF M>88 OR Mill THEN 240 

IF (Q¢(M)=H OR @¢(M)=HE) AND Q(N4+N(B))#E THEN 280 

IF Be2 OR (QCA =CK AND Bei4) THEN 180 

IF Avil THEN 150 

FL=O:IFQ(22)=C OR O(24)=C ORO(26)=C OR (28) =C 
THEN GOSUB1270 

IF FL=i THEN 570 

GOTO 420 

Q(M+N (8B) ) =O (A) s QCM) SEs 0A) FE 

COo=CO+! 

GOSUE 400 

A=M+N (ER) 

B=Q 

B=B+t 

TF (At+2EN(B)<11 OR At2*kN(B) 588) AND Bt4 THEN 330 

M=A+N CE) 

IF @(M)=C AND BS THEN RETURN 

IF (Q¢(M)=HE) AND G(M+N(B))=E THEN 320 

IF Bez OR (@(AY=CK AND Bi4) THEN 330 

RETURN 

IF SC£10 THEN SC=SC+1 

§ (SC) =100k44R+20; RETURN 

IF S$C=0 THEN 470 

XC=RND (SC) 

A=INT(S¢(XC) /100) 

MEAN (S¢XC) ~100kA~-20) 

GOTO S7O 

SC=SC+1:A=RND (88) 

IF @¢A<>C AND Q{A)<3CK THEN SSa 


BeQ 

H=B+ 1 

M=A+N (ER) 

IF M+88 OR ML1i THEN S70 

IF G(M)=E THEN 570 

IF Bee OR @tA)=CK AND BY4 THEN S00 
IF SOL300 THEN 470 

PRINTSFRINT“I CONCEDE THE GAME": END 
@(M) =Q (AD sO (A) SE 

RETURN 

REM KXXKKRKKKRKRKKKKKARK ERE 


PRINT CHRS (28) ; 

FRINT" COMPUTER: "CO 
PRINT" HUMAN: “HU 
PRINT” t23 435 6 7 8" 


FOR F=80 TO 10 STEF ~-10 

FRINT F/105" "3 

FOR G=1 TO SsPRINT CHRS(O(G+F)05" “"SsNEXT G 
PRINT F/10: WEXT F 

PRINT" t2a45678 " 

IF CO=12 OR HUSi2 THEN 710 

RETURN 

IF HU=12 THEN PRINT" YOU HAVE WONT" 
IF CO=i2 THEN PRINT"I HAVE WON!" 
FRINT' THANKS FOR THE GAME":END 
FEMUR ROOK KK KK KAKA KKK KK 

REM 99 TO CONCEDE THE GAME 

REM HUMAN MOVE 

FPRINT@416, "ENTER YOUR MOVE": PRINT 
FRINTS448,""35 : INPUT"FROM" 34 

TF AR99 THEN GOTO 730 

IF @(A<> H AND @(A) <> HK THEN 780 
FRINTI448, " "ss INPUT"TO"3B 


) IF QCAXY=H AND BY A THEN 810 
IF @¢(8)<3E THEN 810 
PRINTD416," ":REM 15 SPACES 
O (ER) =Q(A) : (A) =E 
PRINTD448, " "sREM 10 SPACES 


REPK KK KKK KK ARK KR KKK RAK KKK 

FOR T=11 TO 17:1F Q(T)=C THEN @(T)=CK 
NEXT T 

FOR T=82 TO 88:IF @¢(T)=sH THEN Q(T) =HE 
NEXT T 
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B90 
900 
910 
G20 
FAG 
940 
950 
9460 
979 
973 
9BO 
990 


FREMK XK RAK KKK KKK KK KKK RAKE KE 

IF ABS(A-B)<12 THEN RETURN 

TY=RND (10) 

IF TY THEN FRINTD4146, "GOOD MOVE":sGOSUB 1340 

IF TY?7 THEN PRINT@416, "GOT ME!":GOSUB 1340 
HU=HU+120)¢ (A+B) /2)=E:GOSUR 600 

FOR T=62 TO 88:IF @(T)SH THEN Q(T)=H THEN O(T) =H 
NEXT T 

FRINT: INPUT"CAN YOU JUMF AGAINCY/N) "3s AS 
PRINT@41i6," 

IF ASi>"Y" THEN RETURN 

A=B:G0TO Boo 


LOO REMAKE KK KK KAR KKK KKK KE KKEK 
1010 REM INITIALISE 


1020 CLS:PRINT "PRESS THE GFPACE KEY" 
LOS0 IF INKEY#<> " " THEN 4030 
1040 CLS 


19050 PRINT"PLEASE STAND BY" 
1060 DIM @(99),N(4),5(10) 


1Q70 
LOBO 
1090 
1100 
1110 


H=72:HKe75 

C267: CK=36 

E32: 0F=-99 

FOR M=1 TO 99:0(M)=OF:NEXT 
FOR M=1 TG 64 


1120 READ D,G 


Piso 
1140 


G(D)=G:NEXT M 
DATA 81,46,82, 67,83, 46,84, 47,85, 46,04, 57, 87,46 


1150 DATA 88,67, 71,674 72, 46, 734575 745 46, 755 674 70446 


L140 
Li7Q 
1180 


DATA 77,67, 78,46, 41, 46,62, 57, 63,46, 64, 57 
DATA 65,46, 66,47,67, 46,69, 47,51, 32, 52, 46 
DATA 53,32, 54, 46,55, 32,56,46,57, 32, 58, 46 


1190 DATA 41,46, 42,32, 45,46, 44,32, 45,46, 46, 32 


1200 
1216 
1220 
L230 
1240 


DATA 47,45, 48, 32,31, 72, 32, 46, 33,72, 34, 46, 25,72 
DATA 36, 46,37, 72,38, 46,21, 46,22, 724 23,46, 24,72 
DATA 25,46, 26,72, 27,44, 28, 72, 11,72, 12,46, 13,72 
DATA 14,46,15, 72, 16,46,17, 72,18, 46 

FOR M=1 TO 4:READ X:N(M)=XsNEXT M 


1250 DATA ~11,~9,11,9 


1240 


1270 
1280 
L290 
L300 
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CO=O; HU=0: RETURN 

IF Q¢22)5C AND GC11)"E THEN 4522:M=11:FL=1: RETURN 
IF @(22)=C AND @C13)=5E THEN A=22:M=13:FL=1: RETURN 
IF @(24)=C AND @(13)2E THEN 4=24:M=135:FL=1+ RETURN 
IF Q¢24)=C AND Q(15)=E THEN A=24:M=15:FL=1:RETURN 


1310 TF @¢(26)=C AND @(15)5E THEN A=26:M=15:FL=1:RETURN 
L320 IF @(26)2C AND @(17)5E THEN A=26:M=17:FL=1: RETURN 
$3.30 RETURN 

L240 FOR OF1 TO 10003;NEXT O:RETURN 


COMPUTER: 2 


HUMAN: 2 
1234567 8 
8 . : c¢ .c 8 
7 Cc. . ¢ Coa FT 
Be Keo Bre: 6 COMPUTER: 4 
5 . 16.4565 6.8 HUMAN: 3 
yo, . -H & 
3 ##H. ~ H,H., 3 
—— .-H.H.H 2 12345678 
tdi Bs ae : eran 8 . 7, 6-8 
12345678 | i . Ca 9 
6 eo: eC 6 
5 : ‘ ot 4.35 
he 4 ‘ ‘ -H 4 
COMPUTER: 7 3 ##H., -H.A. 3 
HUMAN: 8 2s P - H.H 2 
1 $48. Os. Baw A 
1234567 8 
1234567 8 
8 . 7 . ~ K 8 
7 ‘ , : 7 
6. . ~~ C 6 COMPUTER: 8 
5 . . . - 5 HUMAN: 9 
° . s. Ak 
3 ¢$. Hs He 3 
2 oe . » $.H 2 1234567 8 
t . $. . a | 6 . EK .% * 8 
1234567 8 7 : .K., a. <5 
6. a ee 6 
5 : ‘ : » 5 
yy . 7 ©. 4 
3 - $.83. 3 
2 .,. . ? 2 
1 * . e t 
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| |AWARI 


AWARI is one of a series of pebble-in-pits games generally known 
under the name of “Mancala.” The game is played from Africa to the 
Philippines, and will now move into your home, via a very clever 
computer opponent. 


As you can see from the sample game, which starts below, the 
game begins with six “pits” (the letters A to F and L to G) facing each 
player. Your pits are those from L to G. Each pit contains three seeds 
at the beginning of the game. Choosing any pit on your side, you pick 
up all the seeds from it, and then proceed to move in a clockwise 
direction, sowing a seed in each pit as you go past it. You do not sow 
any seeds in the pits at either end of the board, the ones which start 
off as zeroes. 

If your final seed lands opposite an empty pit, then all the seeds 
in the pit you’ve landed in become yours, and are transferred to your 
“hore.” Your home is the zero to the left of the board, the computer's 
home is the zero to the right. 

The game continues until either side is completely empty, so the 
player cannot move. At this point, the player with the largest number 
of seeds in his or her pit is the winner. The computer plays well in this 
game, but with practice you'll learn te defeat it. Don’t expect too 
many victories in the early games. 
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Here’s a game I played against my own computer: 


A B C D E F 

s & FS. 8 8 3 
QO 

3.3 iS 3 & 3 

Kk J =I eH G 


‘ib 


moda 


c 


es 


Lio 


am 


& EF CC YP F 
ee 7 2S Se 

Q 
35> 4 4 53 S&S © 
LK J I H G 


f® EF GC YD 


3 0 4 
8) 
3 4 4 & 
L EF J tf 
a B © DBD E F 
4 35 a 4 4 | 
Q 
43 5 6 © © 
L FE J I WH G 
Aa & ¢€ D 
4 wh Oo 3 
1) 


bm 


ta 


A&A & C D E F 
oO oOo | oo ff a 
20 19 
1 oo 6 @ @ a 
L KE J I H G&G 
A B € D €E F 
o Oo 1 0 90 1 
20 19 
16 90 @ @ @ 
L KF J I H G 


THAT’S THE END OF THE GAME 


Db 
ut 
re! 
oO 
m 
“7 


22 19 


MY SCORE> 19 22 £YOUR SCORE 


YOU? RE THE WINNER! 


This is the listing for AWARI: 


10 GOSUB 930:REM INITIALISE 
30 GOSUB 770:REN PRINT BOARD 

40 FOR P=1 10 500:NEXT PsREM DELAY 

50 GOSUB 160:REM COMPUTER MOVE 

60 GOSUB 770:REM PRINT BOARD 

70 SOSUB 620:REM HUNAN HOVE 

80 CW=0sHve0 

90 FOR C=1 TO 12 

100 IF C(7 THEN CW=CWHAIC) 

110 IF 66 THEN HW=HW+AIC) 

£20 NEXT C 

130 IF CW=0 OR HW=0 THEN 50 ia 


140 GOTO 30 

150 REM stastaagcseateee 

160 REK COMPUTER MOVE 

170 GH=0:0=0 

180 C=C + 1 

190 IF AIC)=0 THEN 180 

200 220 + AIC} 

210 IF ZM2Z THEN ZZ ~ 12 

215 FLAG=0 

220 IF 236 THEN IF A(Z-6)<)0 AND A(Z)=0 THEN FLAG#1 
225 IF FLAG=1 THEN IF @(2-6)>6M THEN GH=C 

277 FLAG=0 

230 IF 247 THEN IF A(Z#h)<)0 AND ALZ)=0 THEN FLAG=I 
235 IF FLAB=1 THEN IF A(T#S))GM THEN GN=C 

240 IF C48 THEN 190 

250 IF 64=0 THEX 370 

240 C=6K 

270 PRINT 2 34,"17LL MOVE FROM "sCHRE{O44C),° * 
272 SOUND RND(O)$20+4, 3:SHUND RND(O} #2041, tsSOUND 5,2 
275 PRINT 2 34," se 

280 FOR 2=€ 70 C#A(C) 

290 IF 212 THEN A(Z-12)2A(7~12) +1 

300 IF Z¢13 THEN ACZI=AtZ) +4 

310 NEXT 2 

320 Z=C+ACC)-ts1F 212 THEN 2=2-12 

330 AIC)=0 

340 BU2)=B(2)4AC13~Z) 2013-210 

350 RETURN 

30 RENERETAREAaE ET 

370 REM NON-SCORE MOVE 

380 ¥=0 

390 Wee + 1 

400 C=INT(RND(O) $6)41 

440 IF AC) (> 0 THEN 440 

420 IF WC20 THEN 390 

430 GOTO 516 

440 PRINT 2 34,°1°LL MOVE FROH + sCHRS 6460) 
442 SOUND 6, 1:SOUND 3,1:SOUND RND(0)#2041,3:SQUND RND(O) #2041, 1 
445 PRINT 2 34," “rs 

450 FOR 2= C 70 CeA(C) 

40 IF 2013 THEN ACZ}SA(Z) 44 

470 IF 112 THEN AtI-6)=A(2~6) +1 

480 NEXT 2 


(as 490 RiC}=0:6070 350 


500 REN CEES eegggegy 

510 REM END OF GAHE 

920 GOSUB 770 

330 PRINT 9 34,"THAT’S THE END OF THE GAME“ 

340 SOUND RND(O)$20,1:S0UND RND(O) $20, 2 

OO EF B{1)>B(2) THEN PRINT @ 480, "YOU'RE THE WINNER! * 
540 IF Bt1}<B(2) THEN PRINT @ 460,°17M THE WINNER!” 

370 IF BULd=B(2} THEN PRENT @ 480,°17 LOOKS LIKE A DRAW!" 
980 PRINT 0 4146, "M¥ SCORED*;B(2t3" ";B¢t);*<YOUR SCORE" 
£00 GOTE 609 

610 REMERSSES ERT east 

620 REN HUNAN MDYE 

630 PRINT @ 34, "WHICH PIF TO START WITH?"sPRINT @ 64,* ” 
659 INPUT AS:PRINT @ 34,* ich 
640 PRINT @ 96,“ "BERS (A$) -44 

850 IF BC? OR B42 THEN 630° 

660 CO=B:2=B+A(B)sIF 212 THEN Z=2-12 

70 MEA{Z) 

680 FOR 2=B TQ BeA{B} 

690 IF 242 THEN A(Z~12}=AlZ~12} +t 

700 EF U13 THEN AIZI=A(Z)+E 

719 NEXT Z 

720 Z=BeA(B}~131F Z>12 THEN Z=2-42 

730 IF M=Q THEN B(1}=B(1)+A(E3-2}2A€13-2)=0 

740 A{CO)=0 

750 RETURN 

760 RENGEERRERETTIt Tet 

770 REN PREXT BOARD 

780 PRINT @128," A BOC DE F'sPRINF* °%; 

800 FOR f=f 10 6 

810 PRENT AIC}; 

820 NEXT C 

830 PRINT: PRINT Bi1);* "B(2):PRINT ° “3 
$40 FOR C12 TO 7 STEP -1 

B50 PRINT AIC}; 

G60 NEXT £ 

87) PRINT:PRINT " & K 3 oT H 6? 

880 COPY:REM DELETE THIS LINE IF YOU DON’T WANT PRENTER COPY 
870 RETURN- 

500 PRINT 9 34,"I MOVE FRON "sCHRS(44¢6N) 

710 ¢=6} 

920 RENSEGS3eaaitssete 

930 REN [NITIALISE 
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940 CLS 


960 DIM AC12),8(12) 
970 FOR C=1 TO 12 
980 A(C)=3 


790 NEXT C 


1000 RETURN 


BR 
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O 
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| ] KNIGHTSBRIDGE 


KNIGHTSBRIDGE is one of the few games which I can claim I in- 
vented completely (although, of course, the idea of naming it after a 
London suburb came from the two inventors of KENSINGTON), I 
make habit of reading games books to get ideas, and often when I 
walked in the woods around London, I’d take a book with me to read 
when I felt tike a rest. I was walking one Sunday afternoon near 
Ruislip Lido thinking about a passage I’d just read in a book which 
said that chess evolved from an Indian game in which the throw of a 
die dictated which piece was to move. 

From that starting point, I thought of a game in which all the 
pieces were chess knights (hence the name of the game) and a die was 
used to say which piece had to move. KNIGHTSBRIDGE evolved 
from that idea. 


It is played on a seven by seven board. The computer telis you 
which piece you must move (each piece is indicated by entering a 
two-digit number, the first being the coordinates of the square you’re 
moving to down the side of the board, the second digit being the coor- 
dinates of the square across the top), and then leaves you to decide 
where you will move to, All pieces move like chess knights, and all 
moves are checked to see if they are legal before you are allowed to 
move. 

You capture by landing on top of an enemy piece. The first 
player to capture five of the enemy’s seven pieces is the winner. 
There are no multiple jumps. 

You'll find the computer plays swiftly and well. 
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HY SCORE 18 0 


YOUR SCORE 18 0 MY SCORE 15 0 
YOUR SCORE IS 0 


1234567 
wewann-noenn- 1234567 
7LeCEC ECC 7 caeiencene 
Bisve 3.8.66: 6 POCEEER.7 
ie ene a ae ee ere 
eee earaee | as. Reve we 
Se eae ernes Bee pce wae A 
; ee ee ay Se ea hatin 3 
1HHHHHRHH I Dodrerg uate 
naawerananaee 1HHHWH.HH2 
1234567 —«—-—_—__ wenentewernen 
] RAVE TE MOVE THE PIECE ON 77 1234567 
YOU MUST MOVE THE PIECE OK 15 


7h 


This is the listing for KNIGHTSBRIDGE: 


10 REM KNIGHTSBRIDGE 
20 GOSUB 740 sREM INITIALISE 
30 GOSUB 490 :REM PRINT BOARD 
AQ JF RU=S OR CO=5 THEN 680 :REM END GF GANE 
50 G0SUB 300 :REM COMPUTER MOVE 
60 GOSUB 490 REM PRINT BOARD 
70 IF WSS OR COSS THEN 680 sREM END OF GAHE 
BO GOSUB 110 sREM PLAYER MOVES 
90 BOTO 30 
100 REM Stssagsegsatersageagesy 
$10 REM PLAYER MOVES 
120 Q=0 
130 HeRND (66) #11 
140 D=D+i 
150 IF Q=800 THEN 680 
160 IF HIM)<>72 THEN 130 
170 PRINT*YOU MUST MOVE THE PIECE ON°K 
189 INPUT 
190 IF N=99. THEN @=500; 5072 680 
200 REN #4# CHECK IF MOVE LESAL #44 
210 F=0 
220 CT=! 
230 IF NtZ(fF)=N THEN P=1 
162 


240 IF €1¢B THEN CT=CT+!380TO 230 
250 IF P=O THEN PRINT"ILLEGAL NDVE*: SOTO 180 


260 IF HIN)=67 THEN HUSHU+i:PRINT*WELL PLAYED! *:FORR=3TGS00:NEXT 


270 HIM) =46:H{N)=72 

280 RETURN 

290 RE SUESSTIS HAT Te is ee Teas 

300 REN COMPUTER HGVES 

HO O1=0 

320 Gi=01+1 

330 K=RND(6) +11 

340 IF @1=500 THEN 490 

350 EF HIK}<>67 THEN 320 

340 PRIRT*I HAVE TO MBVE THE PIECE ON°K 
345 FOR F=1 TO 3000:NEXT F 

370 Wel 

3B0 [F K+Z(Wi¢t1 OR K+2(W)977 THEN 400 
385 IF H(K#2(W))=72 THEN PRINT “GOTCHA! !"SFOR Fal TO iS00sNEXT F 
390 IF H(K+2(W)}=72 THEN CO=CO+1:G0T0 450 
400 IF WCB THEN W=Wti;S0T9 390 

410 Wel 

420 TF (keZ (W441 OR K+Z(W)977) AND WCB THEN W=W+1sS0TG 426 
430 IF H(k#2(W3}<946 AND WC8 THEN WeN+1:G0TE 430 
440 IF W=8 AND HIK#Z(W))<> 46 THEN @1=500: 6070 ae 
450 X=KsY=K+Z(W) 

460 HIX)=46sH(¥} 267 

470 RETURK 

450 REM REaRReeeer eat saessaceee 

490 REB PRINT BOARD 

00 CLS 

310 PRINT TAB(B}; "NY SCORE ES°CD 

520 PRINT TAB(8);"YOUR SCORE IS"HU 

530 PRINT 

940 PRINT TAB(B);"£ 23456 . 

550 PRINT TAB(B};*---------=--- 

580 FOR M=70 TO 19 STEP -10 

370 PRINT TAB(S) jM/10; 

380 FOR N=1 10 7 

590 PRINT CHRS(HIM#N))3° 73 

600 NEXT N 

610 PRINT M/10 

620 NEXT M 

430 PRINT TAB{B);°-------------" 

640 PRINT TAB(B)3°1 23.456 7" 

660 RETURN 
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H7O REM SUTELTALLEL ALERT TTT 

680 REM END OF SANE 

696 GOSUB 490 

700 IF HU=5 THEN PRENT"YQU HAVE BEATEN ME, YOU, HUMAN" 

740 EF CO=5 THEN GOSUB 920 

720 IF O=500 THEN PRIRT"E ACCEPT YOUR #15H 10 CONCEDE” 

730 IF Q1=500 THEN PRINT*! CONCEDE TO A MASTER” 

740 END 

750 REM SERETTISRTAL TSE eae 

760 REM INETIALISE 

770 CL5S:PRINT*PLEASE STAND BY,,..HUMAN” 

7B0 BIN H{100),2¢8) 

790 X=0:01=0;020 

B00 HU=0:CO=OsREN SCORES 

810 FOR A=1 TO 99 

920 IF A>77 DR A=70 OR A=60 OR A=48 OR AHb9 OR ATSO THEN NEXT & 
830 IF A=59 OR A=40 OR A=40 OR A=49 OR A=30 OR A=3E THEN NEXT A 
BAG IF A=39 ORA=20 ORA=28 ORA=29 ORASI9 GRA=19 GRACIE THEN NEXT 
850 H(A}=45 

B40 IF Ad70 AND AC78 THEN H{A}=67 

- 970 EF AIG AND ACLG THEN HiAb=72 

B75 IF A>99 THEN 990 

480 NEXT A 

890 FOR A=1 TD @:READ Z{A)SREXT A 

900 DATA -B,-21,-12,-19, 19, £2, 21,8 

910 RETURN 

920 PRINT*THIS VICTORY I$ THE FIRST":PREINT"STEP IN OUR PLAN TO°s 
930 PRENT® TAKE*sPRINT"OVER THE ENTIRE EARTH! *:RETURN 


| | REVERSI/ 
OTHELLO 


The final program in the board-games section of this book is RE- 
VERSI, which is often called OTHELLO.* Invented in the late 
eighteen hundreds, it is played on an ais eight by eight board. 


When it is played on a board, you use pieces aki hare different 
colors on each side. The game begins with four pieces placed on the 
center squares. 

From this point on, you move by placing one of your pieces next 
to a computer piece or pieces, with another of your pieces further on. 
When that happens, all the computer pieces “reverse” to become your 
pieces. 

Here’s how it works. Suppose a line of pieces looked like this: 


OXXXX 


and you decided to put your piece (the 0) at the end of the line like 
this: 


OXXXXO 


The computer pieces would reverse, so the line looked like this after 
your move: 


000000 


*Othello is a registered trademark of Gabriel Industries, Inc., USA and 
Mine of Information, UK. 
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670 REM % ii every square on the board is filled, or 


£80 RT you can see, fortunes can change swiftly 
6e ing off your position (such as on the diag- 
single move. 


any time, you signal this to the computer 


yjoyable game to play. Writing in Creative 
e 1981, p. 188), David Levy tenders the 
the best games ever invented, simply be- 
zarned in no more than a minute, yet the 
aster.” He goes on to observe that although 
r than chess, it is more complex than check- 


Altnoug:. .. n game is called Othello, and was “invented” 
by Goro Hasegawa in Tokyo in 1971, the only difference between it 
and Reversi is the fact that the first four positions must be as in the 
sample game you'll see following this description. 

Back in the 1880s, when the game was first invented in London, 
two gentlernen—Lewis Waterman and John W. Mollett—both 
claimed to be the originators of the game. Stephen Kimmel (writing in 
Creative Computing magazine, July 1981, p. 94) says he believes Wa- 
terman has the strongest case for being the inventor of Reversi, be- 
cause he had the details published first in a series of articles in the 
magazine, The Queen (which concentrated on “affairs of interest to 
ladies”). 

Regardless of who should get the credit, Hasegawa, Waterman, 
or Mollett, it is a great game, and this program (based on one written 
by Graham Chariton) puts up a spirited defense. This sample run 
shows the early stages of one game: 


i?2?3s45467 8 ie2sa43478 
Dt tae, inences ta Gav) aaa Mag ta, ~ cd A Westie ores, ee 
ae ee er ea Ta yO ee Bk a 
QM Sarai cee as ve MWe SS heehee Ly ge kde, oe. 
4 tnt O .6 fi 2 4 4 ty LD eg 
a et ON Pgh. So a eK eX. Fa veya 
GS Fe A: Ogee ee A & Sy ide “Shak FE 65 age aa 
i Oe ee ae ee 7. Ve fy a eee 
Ge eee at oe es OB OF ge a as a Kee 
i2a45467 8 Les4s56 7 8 
COMPUTER 2 HUMAN 2 COMPUTER 4 HUMAN 
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O~Le GPR e 


1 2 
1 . 
4 « * 
va . 
& . « 
EAs 
8 . . 


COMPUTER 


1 2 
1 
4 2) 
ew 
& X 
Fi « 
Gd . « 

12 


COMEUTER 


os 453678 2 
“ rope i 1 , 
iy inp ay gb Se ere ae a ° 
ve ew ew ow ew 3 . 
XO. . » 4 4 ‘ 
a OOK SS oe 8S S . 
Oo xX . » & & P 
ee ee . 7 7 » 

2 oe 2 « ew e 8 a 
345 6&6 7 8 2 
= HUMAN COMPUTER 
3495 67 8 = 
2 «© 8 # 1 1 . 
Sy cet Mee arte: 2 2 . 
Xe ow we ww O88 a . 
9090.4 4 « 4 4 0 
Oo OX . . » oo o " 
XO xX © . . & & X 
a faae? coe a 7 7 . 
~ «= XX. » « 8B 8 * 
345 6 7 8 2 
8 HUMAN 7 COMPUTER 


And here’s the listing of REVERSI: 


10 GOTO 740 

30 PRINT @ 384,"MY HOVE* 

40 $22: T=X:H=0 

0 FOR A=2 10 9:FOR B=2 TO 9 
60 IF ACA,BIC>4& THEN 210 

70 B=0 

80 FOR C=-1 TG t:FOR D=-1 10 4 
90 K=0;F2A:6=8 

100 IF A(FAL,G4D)<>5 THEN £30 
116 Kskti:F=F +l: 6564) 

120 GOTO $00 

130 IF ALF+C,6+D}<>7 THEN 156 


cll 


tix «x x «Oe 


& 7 8 
a . a 1 
. « a 2 
“ . ” 4 
« a « bit 
at ue & 
oa 7 
« . . 8 
4&4 7383 
HUMAN 2 
6 7 8 
. « . 1 
. 7 « 2° 
na & 
a Ld © ral 
x 6 
a » 7 
a « * 8 
& 7g 
HUMAN  é& 
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140 B=0+K 

150 NEXT DsNEXT C 

140 IF A=2 OR A=¥ OR B=2 GR BF THER G=882 
170 IF A=3 OR A=9 OR Be3 OR BoB THEN B=0/2 
180 IF (A=2 OR A=9) AKD (B=3 OR Beg) THEN G=0/2:G0T0 190 
185 JF {A=3 DR A=B) AND (B=2 OR B=9) THEN O=8/2 
$90 [F QCH OR CRND{O)<.3 AND G=H} THEN 210 
200 H=fs=AsN=8 

210 NEXT B:NEXT A 

220 IF K=O AND R=O THEN 690 

230 IF H=0 THEM 250 

240 GOSUB 580 

250 SOSUB 370 

255 PRINT 9 384," . 

260 PRINT 9 354, "ENTER YOUR MOVE" 

270 PRINT: INPUT R 

275 PRINT @ 354, " 7 

290 $=X;Ts2 

290 If Red TREN 350 

300 IF ROLL OR R>BB THEN 260 

30 RER+h] 

320 K=IRT(R/10) 

330 NER-$084 

346 GO5U8 580 

350 GOSUB 370 

340 S0TO 3¢ 

370 REN PRINT BOARD 

390 C=0:H=0 

390 SGUND RND(O)#30, 1 

395 SOUND RND(O) 830, 1 

400 PRINT @ 30," 1234547 8 

450 FOR B=2 TO 9:PRERT S-t3* "3 

440 FOR D=2 TO F 

470 PRIRT CHRS{A(B,D}}s" "3 

480 IF ACB, Di=¥ THEN C=C+l 

490 IF A(B,D)=Z THEN H=Htt 

500 NEXT D 

510 PRINT Bot 

520 NEXT B 

530 PRINT " 12345467 9" 

540 PRINT 

550 PRINT 2 460,"COMPUTER ";C;"  HUKAN “3H 
570 RETURN 


= 
= 
- 
= 
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580 FOR C=-1 10 i:FOR D=-f 10 1 
590 F=asG=N 

- 600 IF AF#C,G4D)()8 THEN 630 

610 FEF +0: 6-540 

620 BOTD 400 

630 IF AIF#C,64D} <> T THEN 470 

640 ALF,G}=T 

850 IF M=F AND N=6 THEN 670 

660 F=F-C:6=6-D:6010 440 

670 NEXT D:NEXT C 

680. RETURK 

690 BOSUB 370 

700 LF COM THEN PRINT "I?M THE CHANP?* 
710 IF HOC THEN PRINT "YOU'RE THE CHAKP" 
720 TF HeC THEN PRINT "IT?S A DRAW 

730 END 

740 CLS 

750 X=883Z=48 

7h0 DIN AL20, 10) 

770 FOR B=1 10 10:FOR C=! TO 10 

780 IF BC>L AND CC>1 AND 8¢>E0 AND C(>40 THER ACB,C)=46 
790 NEXT C:NEXT B 

B00 ALS, SI=K:A(6, b= 

A10 Alb, 5}=ZsA(5, b}=2 

B20 Pad 

830 BOSUB 370 

B40 6070 30 


1 Pe ee ee ak ee oe i 
4 oo Oo 0 : 4 
gs tage OO OE wee ee pe 
& . XX Oo x. . 6 
yar ee tee ee aed 7 
= er fe) van vas ewe Oo 
1 23 S$ 47 8 
COMPUTER 3 HUMAN & 
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Artificial intelligence is a goal which has not yet been achieved. Cer- 
tainly, programs which enable computers to exhibit behavior which 
could conceivably be classed as intelligent have been written, but the 
“intelligence” has been limited and effective only within a severely 
restricted domain. That is, a computer can appear to be brainy, but 
only if you limit the environment within which it has to demonstrate 
those brains. 

Despite the claims made by some people (such as Carl Sagan, “In 
Defense of Robots,” Broca’s Brain) that human beings are, essen- 
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tialiy, just wetl-made computers, we sense there is a wide gulf be- 
tween our own perception of our selfhood, and the total non- 
awareness that computers can have (at least at present) of their own 
existence, And it seems to me that this self-perception lies at the heart 
of at least one aspect of intelligence. 

Computers can function extremely “intelligently” in restricted 
areas, Look at the five-inch-square, hand-held chess machines. Within 
the limited domain of a chess game, a solid appearance of intelligence 
can be created. 

A common stumbling block in the work of early researchers into 
the field of artificial intelligence was that writing a program which 
emulated some aspect of human reasoning (such as a very impressive 
checkers program by Samuels) did not necessarily lead researchers 
any closer to either producing behavior which could be classed as in- 
telligent, nor toward a theoretical understanding of the processes of 
human reasoning and deduction. “Progress in producing intelligent 
behavior is not necessarily progress towards producing thought” (Nor- 
man Whaland, “When Is a Program Intelligent?,” Creative Comput- 
ing, February 1981, pp. 44-49). 

There is another way of approaching the problem, which I cal! 
the “if it quacks like a duck, it’s a duck” approach. In the book The 
Turing Criterion: Machine Intelligent Programs for the 16K ZX81 
(Chariton et al., Interface Publications, London, 1982), which I edi- 
ted, I answer the question “What is the Turing Criterion?” in the 
following words: 


In 1950, the English mathematician and logician A. M. Turing 
proposed what has become known as the “Turing Criterion” for 
machine intelligence. 


He said that if you were dealing with something at the end of a 
wire that could be a machine, or could be human, and you could 
not tell—from the responses coming to you over the wire— 
whether that with which you were dealing was human or 
machine, the “thing” at the other end was, by definition, 
intelligent. 


On this basis, it would be possible to class many, many computer 
programs as intelligent. Certainly those within this section of the book 
could almost pass the test, especially if you were prepared to accept 
the possibility that some pretty stupid humans were dealing with you. 

Time now to explore the worlds of Artificial Intelligence. 


| | ELECTRONIC 
BRAIN 


ELECTRONIC BRAIN is an attempt to write a program which 
would work toward the answer to a problem, in an apparently intel- 
ligent manner. The computer is attempting to solve a problem of the 
type where you think of a numerical code, and the computer tries to 
guess it. The feedback you give its answers are as “whites” and 
“blacks,” where a white is given for a digit which is correct, but is in 
the wrong position in the code, and a black is given whenever there is 
a correct digit within the code. 

The problem is not totally straightforward, as the computer does 
not know, for certain, which digit produced which result, I wrote two 
versions of this program, one to solve three-digit codes, and a modi- 
fication of that program to solve four-digit ones. It works in a simple 
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manner (although implementing the relatively simple idea behind the 
program was not particularly easy), Every time a digit appears in a 
code which is awarded a black, every digit within that code is 
weighted so that it appears more often in future guesses. The more 
blacks in that particular code, the higher the weighting each code 
gets. A much smaller weighting is awarded if the code gets one or 
more whites. Any code getting neither a black nor a white leads to all 
the digits within that guess being totally removed from future consid- 
eration. 

As I said, the three-digit version is the basis upon which the four- 
digit program was written. Enter the three-digit one first, and then 
save it in that form, before making the needed conversion to make it 
work as a four-digit program. Whereas the three-digit version works 
reasonably well, and reasonably quickly, the four-digit program 
grinds almost to a halt toward the end, as it tries to generate codes 
which (a) reflect the weighting that previous answers have produced, 
and (b) are not codes which have been previously suggested in that 
particular run. 

Here’s the program solving a three-digit code: 


GUESS NUMBER 1 


MY GUESS IS 1 2 3 
HOW MANY BLACKS? 1 


AND HOW MANY WHITES? o 


GUESS NUMBER 2 


MY GUESS 15 4 5 46 
HOW MANY BLACKS? 1 


AND HOW MANY WHITES? © 


GUESS NUMBER 3 


MY GUESS 15 7 83 9 


HOW MANY BLACKS? 1 


And this is the listing that produced it: 


19 REM ELECTRONIC BRAIN-S DIGITS 

20 GOSUB SOOsREM INITIALISE 

30 REM MAKE @ GUESS 

40 fF GUESS<3 THEN FOR Z=1 TO) 32B(Z)=Z+3xGUESS: 


NEXT Z:GOTO 40 
GOSUR 280 

LS | 

BUESS=GUESS+1 


80 PRENTs PRINT 
90 PRINT "GUESS NUMBER" GUESS 


240 
250 


PRINT 

PRINT "MY GUESS TS"B¢Ct) ;B(2)3sBCR) 

PREINT! PRINT 

Ba=TNREYS 

PRINT "HOW MANY BLACKS? "s ; 

AG=INEEYS: IF Adit -"O" ANDAR >" 1" ANDASE YD" 

PRINT Ags R=VAL (A) ANDASE BS" THEN LAS 
IF HeS THEN S70 

IF Bes THEN 190 

PRINT: PRINT 


5 BST NREYS 


FRINT “AND HOW MANY WHITES? “3 


5 ASH INKEY$: IF AS< >" OU ANDASS 2" 1" ANDASS 2" 2" 


ANDAS. "3" THEN 175 
PRINT Ag: WEVAL (AS) 
IF WBS THEN O=S:0¢i)=BC1)sC(2)=6¢2) 20 C3) =e C3) 
IF B+Wso THEN C(B(1))=0:C(B(2) O20 (RCS) 9 =O:G0TO SO 
IF BSAlD THEN FOR Z=1 TO 32E(Z)=B(Z) sNEXT Z:AID=E 
FOR 27-1 TO 9 
FOR Del TQ 3 
IF B(D=C¢(Z) THEN C¢Z) S002) 4+ (B+W) K1LOOtWEIO 
NEXT D 
NEXT Z 
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POO 
270 
280 
290 
BOQ 
Sia 
320 
cond ©] 
340 
BuQ 


360 


370 
380 
S90 
4060 


410 
420 
430 
449 
Ao 
460 
470 
430 
AQ 
SOO 
re 
520 
530 
540 
bbe 
340 
370 
ogo 
590 
500 


GOTO 30 

REM PICK THREE NUMBERS 

FOR Z=1 TO 3 

Di=C GRIND (GQ) ) 

IF Dis0 THEN 290 

D2=C (RND (EG) ) 

IF D2=0 THEN 310 

IF INT(D1/10) >INT(D2/10) THEN B(Z)=D4 

IF INT(D1/10)<INT(D2/10) THEN B(Z)=D2 

IF INT(D1/10)=INT(D2/10) THEN B(Z)=Di 

IF B(Z)>100 THEN B(Z)=B(Z)—-1LO00XINT(B(Z) /100) 
:GOTO 370 

IF B(Z) 210 THEN B(Z)=B(Z)-10KINT(B(Z)/10):GO0TO 380 

NEXT 2 

IF (1) =E(2) OR B(1)=B(3) OR B(2)=B(3) THEN 280 

IF AID>O THEN CO=0:FOR Z=1 TO S:IF B(Z)=E(Z) 
THEN CO=CO+1 

IF AID>O THEN NEXT Z:IF CO<AID THEN 280 

M=100KB(1)+10%B (2) 4B (3) 

(GUESS) =M 

IF GUESS<3 THEN 500 

Co=t 

CO=CO+1 

IF K(CO)=M THEN 290 

IF COCGUESS-1 THEN 440 

RETURN 

REM INITIALISE 

GUESS=0: 0=9:AID=0 

DIM BCS), (9), E03), E(100) 

FOR Z=1 TO 9 

C(Z)=2 

NEXT Z 

RETURN 

PRINT: PRINT 

PRINT "I GUESSED YOUR CODE OF"B(1)3;B(2);8(3) 

PRINT TAB(S);"IN JUST"GUESS"GUESSES" 

FOR Z=1 TO SOOO:NEXT Z:CLS 


This is the listing to solve four-digit codes, which is based on the 


three-digit one. Note the addition of “-— 1” in line 420 of this program, 
as well as the other changes: 


LQ REM ELECTRONIC BRAIN-4 DIGITS 


20 GOSUB Sio:REM INITIALISE 
30 REM MAKE A GUESS 
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40 
bt 


IF GUESS=0 THEN FOR Z=1 TO 4:8(Z)=Z:NEXT Z:GOTO 70 
IF GUESS=1 THEN FOR Z=t TO 4:8(Z)=Z+4:NEXT Z:GOTO 70 


40 BOSUE 2ao 

7O CIS 

BO GBUESS=“6UESS+1 
90 PRINT: PRINT 


200 


205 
Zia 
B20 
230 
240 
250 
2460 
270 
28O 
290 
Sag 
310 
S20 
2350 
340 
350 
30 
370 
380 


B90 
400 


PRINT "GUESS NUMBER" GUESS 

PRINT 

PRINT "MY GUESS IS"B(1);8(2)3Bt3) 58¢(4) 
PRINT: PRINT 

INPUT "HOW MANY BLACKS"; 8 


IF Re4 THEN S80 
IF B=3 THEN 190 
PRINT: PRINT 
INPUT "AND HOW MANY WHITES"; 
IF Wt+h=4 THEN G=4:C(2)=8(1):C(2)=BC2)5 
C(3)=B(3) 10 (4)=B (4) 
TF EeWeOo THEN C(R(1))=0:C(B(2))=0: 
C(B(S))=0:C0(8(4))=0:G60TO 30 
IF B(2)=B(4) OR BCS)=8(4) THEN 290 
IF B3AID THEN FOR Z=1 TO 4:6(Z)=B(Z) NEXT Z:AID=h 
FOR z=1 TO ? 
FOR D=1 TO 4 
IF B¢(D)=C(2Z2) THEN CZ) =0(Z) + (B+W) KLO04+WK10 
NEXT D 
NEXT Z 
GOTO 30 
REM FICK FOUR NUMBERS 
FOR Z=1 TO 4 
DiL=C CRND (@) > 
IF Died THEN 300 
D2=C (RAND CO) 9 
IF D2=0 THEN 320 
IF INT{DL/10) > INT(D2/10) THEN B(Z)=D1 
IF INT(D1/i0) ¢«< INT(D2/10) THEN B(Z)=D2 
IF INT(D1/10) = INT(D2/10) THEN B(Z)=D1 
IF 8(Z)>100 THEN B(Z)=B(Z)-1008INT(B(Z)/100)5 
GOTO 370 
IF E(Z) 10 THEN BZ) =B(Z)-10X#INT(B(Z)/10) GOTO 380 
NEXT Z 
IF BCi)#R(2) OR B(1)=BCS) OR BCL) =B(4) 
OR B(2)5H(3) THEN 290 
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AOS 
440 


420 
430 
440) 
ASO 
460 
470 
490 
490) 
ba 
S10 
cr 
S30 
sO 
SO 
oO 
a70 
BO 
SFO 
600 
610 
620 
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IF B(Z)=8(4) OR HCE)sE¢4) THEN 290 

IF AIDYO THEN CO=O0:FGR Z=i TO 4:1F B(Z)=E(Z) 
THEN CO=CO+! 

IF ALD?0 THEN NEXT Z:IF CO<AID-1 THEN 290 

M=LOOOKE ¢1) +100KBR (2) +10KB (3) +B (4) 

K (GUESS) =M 

IF GUESS<3 THEN 500 

co=1 

CO=CO+t 

IF K(CO)=M THEN 290 

IF CO<GUESS~1 THEN 470 

RETURN 

REM INITIALISE 

GUESS=0: G=9: AID=0 

DIM B(4),069),E(4) ,K (100) 

FOR Z=1 TO 9 

CZ) =Z 

NEXT Z 

RETURN 

PRINT: PRINT 

PRINT "I GUESSED YOUR CODE OF "B(1);B(2):B(3) $B (4) 

PRINT TAR(S);"IN JUST" GUESS"GUESSES" 

FOR Z=1 TO SOOO:NEXT Z 

CLS: END 


THE POSTULANT BESEECHED NEGLECTFULLY ,-- 
IN THE ENEMY'S CAMP... 
WANTING FOR A DOGNATIST, 
TO RECANT THE DJINN... 
DISPENSING WITH, THEN ERODING 
.. ENCLOSING, WOUNDING, 


Next we'll have our poetry writing program. This demands no interac- 
tion from you, except for that of admiring the wonderful () output of 
= the program. Here’s a sample of the kind of verse it produces: 


THE ASPIRANT CRAVED SUCCESSFULLY 
IN THE RACECOURSE... 
PRAYING FOR HOBSON'S CHOICE, 
TO QUENCH THE GHOST... 
EMPTYING, THEN BLIGHTING 
+e sHANDCUFPFING, ROTTING. 


THE ASPIRANT ENTREATED HALTINGLY 
IN THE HIPPODROME... 
PRAYING FOR A BLIND BARGAIN, 
TO RECANT THE NAIAD... 
WASTING, THEN BRBAKING 
+ sRESTRAINING, UNDERMINING. 


THE CONVOY CLAIMED SLAVISHLY 
IN THE COURT... 
PRAYING FOR AN ASTRAL INFLUENCE, 
TO DSMUR THE FAUN.,. 
EXHAUSTING, THEN GNAWING 
++ ITMPOUNDING, BREAKING. 
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THE POSTULANT ENTREATED ENDLESSLY 
IN THE PLAYGROUND... 
WAITING FOR HOBSON'S CHOICE, 
TO RELINQUISH THE SATUR... 
DISPENSING WITH, THEN DAMAGING 
««.COERCING, BREAKING. 


THE BEGGAR CLAIMED HALTINGLY 
IN THE THEATRE OF WAR... 
ASKING FOR FORTUNE'S WHEEL, 
TO BACK THE NAIAD... 
DISPENSING WITH, THEN BREAKING 
»» -MUZZLING, WOUNDING. 


This is the listing of AMANUENSIS. Once you’ve run it for a 
while, you may well wish to change the words in the DATA state- 
ments, to vary the kind of poetry it produces. 


REM AMANUENSIS 
CLS:DIM AS(12),Z$(10) 
REM OOO OOOO RK Kx 
RESTORE: GOSUB 450:A% (1) =Be 
GOSUB 570:As (2) =BS 
GOSUB S70:A$ (3) =BS 
GOSUB S70: At (4) =DS 
SOSUB S70:A$ (5) =BS 
GOSUE S70:AG (4) =BS 
GOSUB S70:A%(7) =BS 
GOSUB 570:A$ (9) =E¢ 
GOSUB S70:A% (9) =BS 
GOSUB 570:A8 (10) =B¢ 
GOSUB 5S70:A%(11) =B¢ 
RESTORE:FOR I=1 TO 100:READ V$:NEXT 
GOSUB 570:A$ (12) =BS 
REM XXKKRKKKKAKK EK KA RRR ERE K 
PRINT "THE "sASC1)¢" "SAS(2DE" "SAB(E) 
PRINT " IN THE "sAS(4)3"..0" 
PRINT AS(S)s" FOR "sAS(S)3", " 
PRINT " TO "sA(7)2" THE "sag(@de"...” 
PRINT A$(9)3", THEN "3A$(10) 


o PRINT eee "SABCIID "5 “SARCLZ) YL 


PRINTS PRINT: M$=INKEYSs M$=INKEYS 
REM EXKKRK KK KAKA KK AKEKEEKR 


250 PRINT:PRINT "PRESS *C* TO CONTINUE” 
255 IF INKEY#<>"C" THEN 255 
260 CLS:GOTO 4o 
27Q REM XXXKKKKAKE KAKA KKK AK RK AK 
280 DATA" APPLICANT", "SUPPLICANT", "MENDICANT", 
"BEGGAR" , "ASF IRANT” 
290 DATA “CLAIMANT”, “POSTULANT", "CONVOY", "SENTINEL", 
"CASTELLAN" 
300 DATA "ENTREATED", "BESEECHED", "WAITED", "RESOUGHT", 
“CONJURED" 
310 DATA "PRESSED", "URGED", "CRAVED", "DEMANDED", “CLAIMED 
320 DATA"SUCCESSFULLY", "“COURAGEOUSLY", "PROGRESSIVELY" 
» "FOOLISHLY" 
330 DATA "ENDLESSLY", "HELPLESSLY", “HALTINGLY", 


"SLAVISHLY " 
340 DATA "NEGLECTFULLY", “PRIDEFULLY" 
350 DATA"FIELD", "BATTLEFIELD", "PLAYGROUND", "CIRCUS 
RING", "COURT" 
360 DATA "BEAR GARDEN", "ENEMY*S CAMP", "HIPFODROME", 
"RACECOURSE" 


370 DATA "THEATRE OF WAR” 
380 DATA "WAITING", "ASKING", "HOPING", "WATCHING" - 
, "SCREAMING" 
390 DATA "CRYING", "STARING", "WANTING", "STAYING", "FRAYING 
400 DATA "THE FATES"”,“FORTUNE’S WHEEL”, “HORSON’S CHOICE" 
410 DATA “THE STARS", "AN ASTRAL INFLUENCE", “A BLIND 
BARGAIN" 
420 DATA "A SPELLBINDER”,"A MALEVOLENT SPIRIT", "A ZEALOT 
430 DATA "A DOGMATIST" 
440 DATA "QUENCH", “RECANT", "FORSWEAR"”, "ABJURE", 
“RENOUNCE”, “WAVER 
430 DATA “RELINQUISH”, “DEMUR", "SWERVE", "BACK" 
460 DATA “GHOST”, "SPECTRE", "HOBGORLIN", "DJINN", 
"LEPRECHAUN" 
470 DATA "PIXY", "FAUN”, "SATUR", “DRYAD", “NAITAD” 
480 DATA "WASTING", "SFENDING", "USING", “CONSUMING”, 
“DRYING UP" 


490 DATA "RUNNING OUT", “EMPTYING”, "EXHAUSTING", 
"SQUANDER ING" 
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S60 DATA “DISPENSING WITH" 


S10 DATA “CORRGDING", "ERODING", "BLIGHTING", “ROTTING”, 
"GNAWING" 


520 DATA "UNDERMINING", "SHAKING", "BREAKING", "DAMAGING" 
» "WOUNDED" 
MRESTRAINING", "COERCING", "CHECKING", "CHECKING" 


250 DATA 
540 DATA “DETAINING", "ENCLOSING", "IMPOUNDING” 
>» "HANDCUFFING* 


550 DATA "MUZZLING", "GAGGING", "SUPPRESSING" 
S60 REM ACCC ORR KR RRR RK 
570 FOR N=1 TO 10 
S80 READ Z$(N):NEXT N 
S90 N@RND (10) 
600 BS=ZS(N) 
610 RETURN 
THE APPLICANT PRESSED PRIDEFULLY 

IN THE ENEMY'S CAMP... 

WATCHING FOR A -SPELLBINDER, 
TO DEMUR THE HOBGOBLIN... 
DRYING UP, THEN ROTTING 
«. HANDCGUPFING, DAMAGING. 


THE CLAIMANT CRAVED SLAVISHLY 
iN THE BEAR GARDEN... 
CRYING FOR HOBSON'S CHOICE, 
TO WAVER THE DRYAD... 
m DRYING UP, THEN ERODING 
«es RESTRAINING, ROTTING, 


a 


THE MENDICANT CONJURED HELPLESSLY 
IN THE COURT... 
PRAYING FOR A DOGMATIST, 
- TO QUENCH THE LEPRECHAUN... 
RUNNING GUT, THEN ERODING 
eos EMPOUNDING, BLIGHTING. 


Dice Games 


Dice games—for high stakes, low stakes, or none—have proved pop- 
ular throughout history. Whether the dice were made from stone or 
wood, or carved from the bones of a beast killed for food, whether 
they had four important sides or six, dice have proved a diversion for 
countless men throughout time. 


The dice, physical means of demonstrating the waywardness of 
chance, have also found employment in foretelling the future, and 
like all oracles, probably bear some responsibility for changing the 
tide of history. 

At Troy the Greeks played with dice, as did Mark Antony at 
Alexandria, Italy and France led medieval Europe in their love for 
dice, and devotion to the six-sided cubes has continued up to the pres- 
ent day. In this section of the book, we'll be investigating ways of 
using the random number generator of your computer to take the 
place of physical dice. However, you'll discover that the dice are no 
less compelling because they exist only within the software of your 
computer rather than in a more gross physical form. 

Playing against the computer, instead of against another human 
being, changes the “feel” of dice games somewhat. Not having to pay 
up when you lose is one of the real advantages! 
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|_|} NO SWEAT 


The name of this game—NO SWEAT—comes from one of the early 
English names for the game from which this is derived. Known as 
“sweatcloth,” the game, when first played in England, used three dice 
within a wooden “shoe.” The most common variation of this game is 
now seen in US gambling casinos, where it is called “birdcage,” be- 
cause of the equipment which is used, 

In birdcage, three dice are held within a metal cage which can 
spin about a central axis. Once bets have been laid, the cage is ro- 
tated. This is supposed to ensure that the dice are spun properly, as 
they are not actually touched by a casino operator. 


——— 


— 


Betting in birdcage, and in NO SWEAT, is fast and simple, and 
despite the fact that you might think the odds are in your favor as a 
player, you'll quickly learn how easy it is to lose your shirt. 

You place a bet of a specified amount (see Jines 50 and 60) up to 
the size of your stake (held by the variable M, for money—-see lines 
30 and 250) and then choose a number between one and six. The 
amount of your bet is subtracted from your stake, and then the three 
dice are rolled. For each one which lands showing your number, you'll 
have an amount equal to your bet returned to you. 

As you can see, this means you have to throw one die with your 
number showing to break even, and two to actually make some 
money. The need to throw the same, chosen number twice is what 
gives the casino such a good edge in this game. 
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Line 50 asks you how much you'd like to bet, and the variable A 
is assigned to your choice. This is compared with the money you actu- 
ally have (in line 60) to see if you are trying to bet more than you 
have on hand. Having passed that hurdle, your bet is subtracted from 
your stake in line 70 and then the computer asks you (line 50) to 
enter your bet. 

The C loop, from lines 100 to 180, rolls the dice and compares 
each roil with your number, reporting to you after each roll. Your 
winnings (if there are any) are also added in this loop. 

After each round of the game, your money (M) is compared with 
250 (if you’ve got more than $250 you’ve exceeded the house limits 
and are therefore excluded from future play) and with zero (those who 
have no money are not allowed to play further). If, however, you do 
not have more than 250 nor less than zero, you’re able to continue 
playing. 

And here’s the listing so you and your computer can take part in 
a round or two: 


10 REM NO SWEAT 

30 M=30 

40 CLS: 60SUB 240 

50 INPUT*HOW AUCH WOULD YOU LIKE TO BET*;A 

60 IF AYM THEN 50 

70 MeM-Az PRINT: PRINT 

80 INPUT"WHICH NUMBER ARE YOU BETTING ON*sB 

90 IF Bel OR Bd & THEN 80 

95 GOSUE 280 

100 FOR C=) TG 3 

$10 W=0 

120 GOSUB 2000:PRINTE25, *AIM~"38 

130 PRINT:PRINF'DIE"C"FELL"D 

149 IFD=B AND C= THEN W=A:PRINT” SO YOU BREAK EVEN” 
150 IFD=B AND C)1 THEN W=AsPRINT" SO YOU RIN $*W 
160 M=N+h 

170 GOSUB 240 

175 GOSUB 280:GDSUB 280 

180 REXT C 

190 SOSUB 280:G0SUB 280 

200 IF N>250 THEN 310 

210 IF M0 THEN 40 

220 FOR X=) TQ B:PRINT*THE GAME IS OVER, COS YOU'RE BROKE!*:NEXT 
230 G8T0 23¢ 

240 PRINT "ESTERASE ssetgageeeaegegte 


250 PRINT" YOUR STAKE 15 NOW $°H 

260 PRINT USSSGRRSESee Rear geese 

270 RETURK 

280 FOR P=1 13 1600 

290 NEXT P 

300 RETURN 

310 FOR d=i 10 36 

320 PRINT'YOU’VE TOPPED $250! * 

350 PRIKTTAB (J); "WELL DONE! !* 

335 FOR I=1 TO f002NEXT 

340 WEXT J 

350 COLOR, 1: FORT=fTO500:NEXTsCOLOR, O:FORI=1 T0500: NEXT:GOTD 350 
2000 REM DICE THROW 

2010 COS:COLOR,! 

2020 PRINT TAB{14);"DIE"C 

2030 D=RND{5} 

2040 FOR T=28810 TO 28822:POKE 1,140:KEXT J 

2050 FOR 1=28810 TO 29066 STEP 32:POKE 1,13B:NEXT f 

2060 FOR 1=29066 TO 29078:POKE I, 13f:NEXT | 

2070 FOR 1=29922 18 29078 STEP 32: POKE J, 133:REXT T 

2080 POKE 29810, (42:POKE 29066, 139:POKE 29078, 135:POKE 28822, 141 
2090 IF D=1 THEN 2150 

2100 EF D=2 THEN 2160 

2116 IF D=3 THEN 2170 

7120 IF D=4 THEN 2180 

2130 IF D=5 THER 2190 

2140 IF D=& THEN 2200 

2150 POKE 28944, 143:6070 2220 

2150 POKE 28876, 143:POKE 29012, 143:60T0 2220 

2170 POKE 28874, [43:POKE 28944, 143:POKE 29012, 143:60T0 2220 

2480 POKE 28876, 143:POKE 29004, 143:POKE 28684, 143:PDKE 29012, 143 
285 B07D 2220 

2190 POKE 28876, 143:PDKE 29004, 143:POKE 28884, 143:POKE 29012, 143 
2199 POKE 28944,143;6070 2220 

2200 POKE 28376, 143:POXE 29004, 143:POKE 2B884,143:PQKE 29012, 143 
2210 POKE 28940, 143:POKE 26948, 143 

2220 FOR I=1 70 2500:NEXT J: COLOR, O:CLS:RETURN 
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| | CHEMIN DE 
COMPUTER 


CHEMIN DE COMPUTER is based, as I’m sure you've realized, on 
Chemin de Fer. In this game, you and your computer take it in turns 
to roll five dice, adding the pips up as you go. You are aiming to get a 
higher total than the computer. 

However, this game is not just a simple “add the pips” one. Any 
die which falls showing a five or a two must be thrown again, and your 
total is just the final digit of the answer (that is, a total of 27 is counted 
as 7, and a total of 13 is counted as 3), 

There are three special totals—7 (a Natural), 8 (La Petite), and 9 
{La Grande), The names are only bestowed when the relevant total is 
achieved on the first throw (i.e., the dice which came up with 5 or 2 
have not been, and are not in this case, rethrown). You (and the com- 
puter) always stand on a 7, 8, or 9 thrown with the first toss of the five 
dice. 


a. “I : 
ah 
i, 


—— 


rk 
yi 
oa 


\is 


180 


As in many other programs in this book, there is a delay loop 
routine at the end of the listing which is called a number of times 
throughout a game to improve the speed with which the game ad- 
vances, and to give you (in many cases) a chance to read on the screen 
what is going on before the program races on, clearing the screen, and 
leaving you quite unsure of exactly what has just happened. In this 
program, there are two loops, one of which is longer than the other, 
and which also prints a couple of blank lines before returning to the 
main program. 

Line 330 calls a delay and then clears the screen before incre- 
menting the counter GAME in the next line. You are told which game 
it is by line 350 and then the computer announces that, because it is 
taking the role of the banker, who always goes first, it will take the 
first roll, The “roll the dice” subroutine from line 70 is then triggered. 
You'll see that the loop counter G is used (line 80) to set the variable 
A to a randomly chosen value between one and six each time through 
the loop. If the die comes up with five or two (line 90) then it is reset 
to zero, before the value is printed by the following line. 

The running total is clocked up on variable D, and then leading 
digits are stripped from this (i.e., 27 is cut down first to 17, then to 7) 
by line 150, The changing total is printed on the screen each time. 
After a delay the computer prints up “Total on the first roll is...” 
and then checks (lines 180, 190 and 200) to see if one of the special 
rolls has eventuated. 

If so, a message to that effect is printed. If not, the computer gets 
to line 210 where it can see if any dice have to be rolled again (C is 
incremented by one each time a 2 or a 5 is rolled, see line 90). If 
there are none which have to be re-rolled, the computer moves on to 
line 410 to print out “So my final total is... .” If, however, C is not 
equal to zero, then the computer runs through another loop (240 to 
300) to throw those dice again. Once again, any dice coming up two or 
five are discarded (line 280). 

Once the computer has had its roll, it is your turn to play. Your 
involvement, actually, is pretty small at this stage. Once you’ve 
pressed RETURN (lines 440 and 450) the computer takes over for 
you, using the same routine near the beginning of the program to roll 
the dice for you, and incrementing your total as it does so. 

Once both of you have had your go, the computer then decides if 
it has beaten you, or you have defeated it, or whether the two of you 
have drawn (“Standoff”), The aim of CHEMIN DE COMPUTER is 
to win the majority out of nine scoring games (and a Standoff game 
does not count as a scoring game). 

“Now the totals so far in Chemin de Computer are...” you are 


told by line 670 and—if nine scoring games have not been played— 
the computer makes some comment on the game (“Looks like I’m in 
front...” or “And you seem to have the edge . . .”) before returning 
to the main program. 

Once a total of nine scoring games has been detected (by line 
700) then the routine from line 750 comes into action. “Well, old 
buddy, we seem to have come to the end of the game... .” the com- 
puter tells you, then determines who has been the overall winner. 

You're in good company when you play this game. Baccarat, 
from which Chemin de Fer was derived, was first introduced into 
France from Italy in about 1490, during the reign of Charles VIII. 
The Italian game was called “Baccara.” 

Here is the program listing: 


REM CHEMIN 

CLS 

GAME=90 

B1=0:F1=0 

GOTO 330 

D2=0; C20 

FOR G=1 TO SsA=-RND (4) 


90 IF AB2 OR A=5 THEN C=C+1 
100 FRINT A; sSQOUND 31,1 

110 GOSUB 930 

120 IF As2 OR A®S THEN A#0 


30 D=D+AsNEXT G 


140 PRINTSPRINT Ds 

450 IF De? THEN D=D-10:FRINT: PRINT DB: GOTO 150 

160 GOSUR 900 

170 PRINTIPRINT “TOTAL ON THE FIRST ROLE IS"D 

180 IF D=9 THEN PRINT “AND THATS LA GRANDE... "2: RETURN 
190 IF D=8 THEN PRINT "AND THATS LA FETITE...":RETURN 
200 IF D=7 THEN FRINT “AND THATS A NATURAL... "3s RETURN 
210 IF C=O THEN RETURN 


0 GOSUB 939 


230 PRINTSPRINT C"MUST BE ROLLED AGAIN" 


S35 FOR Z=1 TO C:SOUND S,i:NEXT Z 


240 FOR A=1 TO C 

30 BOSUB 90 

260 E=RND(4) 

270 PRINT &;:SQ0UND 29,1 
290 IF E=2 OR E=S THEN €=0 
290 D=B+E 
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NEXT 

IF D>? THEN D=D-10:PRINT D3:GOTO 310 
RETURN 

GOSUB 930;CLS 

GAME=GAME+1 

PRINTIPRINT "3>>> THIS IS GAME"GAME" <<c<c" 
PRINT "XX RRR AK KKK RAK KK KK KKK KKK RAK ERE" 
PRINT " NOW, I*LL ROLL AS BANKER..." 
PRINT "XXX KKK KKK KK AK RR AK AK R RRR KK” 


2 GOSUB 7a 


GOSUB YOO 

PRINT:PRINT "SO MY FINAL TOTAL IS"D 
GOSUB 700 

PRINT “X&KKKAKKKR EKA KKK RARE RAR KARR EK ER 
&$=INKEY$: Ass" " 

PRINT " PRESS “R’ TO ROLL YOUR DICE" 


5 AS=INKEYS:1IF ASK S"R" THEN 445 


PRINT “UGG GOO OOO OIGK aK! 
J=D 

SOSUB 930 

GOSUB 70 

PRINT:PRINT "SO YOUR FINAL TOTAL I18"D 
PRINT: PRINT 

GOSUB 930 

PRINT "COPUTER”, "HUMAN" 

GOSUB 900 

PRINT J,D 

GOSUB 930:FRINT 

PRINT "S$GSSHESSHSSSRSS SHS IADSSHHHSDSSS" 
PRINT TAB(S)s 

IF J=D THEN PRINT “THATS A STANDOFF": GOTO 420 
IF J>D THEN PRINT "I°M"3;:B1=Bi+i 

IF D>J THEN PRINT "YOURE": :Pi=P1+1 
PRINT " THE WINNER THAT TIME!” 

FRINT "SHHPRSSSHAHDSSSHSSHHSH SESH THES” 
PRINT: PRINT 

GGSUB 9c0 

PRINT " NOW THE TOTALS SO FAR IN" 

PRINT “ CHEMIN DE COMPUTER ARE" 

PRINT B1i"FOR ME, AND"F1i"FOR YOU..." 
PRINT: PRINT 

GOSUB 930 

IF B1+Pi=9 THEN 750 


7IO 
720 


730 
740 
Paw ®) 
740 
77% 
780 
790 
Ban 
Blo 
B20 


ne 
es 


830 
QA7 
B40 
B30 
G50 
870 
880 
9a 
Fa 
940 
9209 
9a 


IF Bi>PL THEN PRINT " LOOKS LIKE 17M IN FRONT!" 
IF F13BL THEN PRINT " AND YOU SEEM TO 
HAVE THE EDGE!" 
GOSUB FOO 
GOTO 330 
REM END OF GAME 
PRINTs PRINT 
PRINT "WELL, OLD BUDDY, WE SEEM” 
PRINT “TO HAVE COME TO THE END” 
PRINT "OF THE GAME...WITH A TOTAL” 
FRINT "OF NINE SCORING ROUNDS..." 
GOSUB FOO 
IF Pi3B1 THEN PRINT "AND, FOR ONCE, I7 31S" 
IF Pi>B1 THEN PRINT "YOU HAS BEATEN ME!":GOTO 840 
IF R13F1 THEN PRINT "AND, ONCE AGAIN, THE” 
IF Bi>Pi THEN PRINT “MIGHTY MACHINE PROVES THE” 
IF Bi2F1L THEN PRINT "SUPREME CHAMPION! ! 
GUSUB 900 
PRINT "THANKS FOR THE GAME, OLD" 
PRINT “BUDDY,WE MUST DO IT AGAIN" 
FRINT "SOME TIME, WHEN YOU FEEL" 
PRINT GLUGKY cana ceureen Coon cess" 


END 

FOR Z=t TO 1500sNEXT Z 
PRINT: PRINT 

RETURN 

FOR Z=i TO 75S0:NEXT Z: RETURN 
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| }|ONE-AND-TWENTY 


Our dice games continue now with ONE-AND-TWENTY which, as 
you realized the moment you read the title in the introduction, is a 
dice version of blackjack. 

The game is simple, but demands a degree of cool thinking, as 
weil as the ability to guess which numbers are going to come up next 
when the die is rolled. In ONE-AND-TWENTY, you are playing 
againat the computer. 

You are always given the first go. You roll the die as many times 
as you like, aiming to get a total as close as possible to, but not ex- 
ceeding, 21. You can stop adding to the total whenever you like. 

If you exceed 21 (that is, you “bust”) then the computer wins that 
round automatically. A game consists of five rounds, and the winner 
of the most rounds, naturally enough, wins the game. 

After initializing some variables (including HS for the human 
score and CS for the computer score) in lines 20 and 30, and clearing 
the screen in line 40, the computer asks you to “Press ‘R’ to roll, ‘S’ to 
stand.” The word “Stand” means you are happy with the total you've 
achieved so far and you'll stay with it, giving the computer a chance 
to try and beat you. You'll soon learn that the speed with which you 
enter an R or an 5 can affect the number which is thrown, because 
the delay between the “Press 'R’ to roll...” and the time you actu- 


ally do press an R or an S is used to create a number (N) which— 
together with your current total—is used to seed the random number 
generator for the next dice roll. 

The lines from 50 to 170 control your dice-rolling, and the com- 
puter only exits this cycle when you decide to stand, The whole of the 
computer’s game-playing logic is held within line 180, which deter- 
mines whether it is worth risking a bust to try and exceed your total. 
If it decides to roll, the lines from 190 to 250 control this. 

Once the computer decides it has had enough of that, it uses lines 
260, 280 and 290 to determine who has won. If both your scores are 
the same, or both of you are over 21, then the round is counted as a 
dead heat (line 320 tells you this), and neither CS nor HS is incre- 
mented. Line 280 spots a computer win, adding one to CS and print- 
ing “I,” while the next line adds one to HS and prints “You.” The 
mysterious “I” and “You” are used as the first part of the sentence 
concluded by “win!!!” in line 300. 

As in CHEMIN DE COMPUTER, where the aim was to get the 
best out of nine scoring games, in ONE-AND-TWENTY, the in- 
tention is to score wins in the majority of games out of five. Line 390 
looks to see if this has happened, and if so sends the program to line 
450 where the result of the game (with a sarcastic comment or two) is 
printed. If five scoring games have not been played, line 400 asks you 
to “Stand by for the next round...” and after a brief pause (line 
430), the next round is upon you. 

This listing will enable your computer to challenge (and probably 
beat) you in ONE-AND-TWENTY: 


REM ONE-AND--TWENTY 

HS=O8 CSC) 

H=O8 CeO: N= 

CLS 

PRINT "FRESS “R° TO ROLL, *S* TO STAND" 


Dé= [NEEYSs DS=INKEYS 

A$=TNKEY 

IF AS<> "R" AND Ags > "S" THEN 70 

IF &#="S" THEN CLS:sPRINT “YOUR TOTAL I[S"H:GOTO 180 
GOSUEH 4230 

R=RND (4) 

PRINT "YOU ROLLED A"R: SOUND R+12,R 
H=H+tR 

PRINT "SO YOUR TOTAL IS"H 

GOSUBR 4250 

PRINT: GOTG So 


180 


196 
200 
210 
22g 
230 
240 
230 
260 
270 
280 
290 


3x00 
SiO 
$20 
330 
340 
350 
3&0 
370 
380 
390 
400 
410 
420 
ASO 
440 
43a 
440 
A?) 
480 
490 
495 
SOO 
30S 
SO7 


510 
520 
S30) 
s40 


IF CH AND Ce22 OR Co21 OR He2i OR H=21 
AND C=21 T 26C 
R=RND (6) 1 THEN 260 


GOSUR 430 
PRINT:PRINT “I ROLLED A"R 
C=C+R 
FRINT "SO MY TOTAL IS"c 
GOSUB 430 
§80TQ 180 
TF H=C OR He2i AND C221 THEN 320 
GOSUB S10 
IF (C>}H OR H?21) AND C<22 THEN FRINT ,“I"3 :CSsC5+1 
IF (C<H OR C321) AND HE22 THEN PRINT ,; 
"YOU" s 2sHS=HS+1 
PRINT " WIN!!” 
GOTO 350 
FRINT "THAT ROUND IS A DEAD HEAT....NO ", "SCORE" 
GOSUB 430 
B6OSUB S19 
PRINT “AFTER THAT ROUND, THE GAME SCORE IS" 
GOSUB 430 
PRINT TAB(7)3 "YOU: "HS", AND ME"CS 
GOSUB S10 
IF CS+HS=5 THEN 450 
PRINTsPRINT "STAND BY FOR THE NEXT ROUND..." 
GOSUB 430:GOSUB 430 
Ci.S:GOTO 30 
FOR G=1 TO SO0osNEXT O 
RETURN 
PRINT:PRINT “THAT’S THE END OF THE GAME" 
PRINT: PRINT “FINAL SCORES: “ 
FRINT , "YOU? "HS 
PRINT ," MEs"CS:PRINT 
IF CS>HS THEN PRINT "AND I DEFEATED YOU, HUMANOID'' 
IF CS3HS THEN GOTO S30 
PRINT “AND REMARKABLY, A MERE HUMAN” 
PRINT "BEAT THE MACHINE! !":SOUND 5,3 
GOSUB 430:GOSUBR 430:GOSUB 430:GOSUB 430: 
GOSUB 430: END 
PRINTS PRINT “SOKO ROK ORK RK RK RK RK RK RRR KK" 
2PRINT 
RETURN 
SOUND 28,3:SOUND 28,2:SQUND 25,4:SQUND 30,2 


SOUND 25, 6:END 187 
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| | MALIBU 


Roll the dice now for a few rounds of Malibu. You and the computer 
take it in turns to roll three dice each, Various dice combinations, and 
the total of the three dice, are worth points. For example, if the total 
of the pips showing is 13 (“Lucky Joe”) on the computer’s dice, the 
computer gets six points, and the human loses six points, 

You start the game with 50 points each, and there are five rounds 
to a game. As I said, there are certain winning combinations (such as 
three sixes, called a “high roller”) and certain winning totals (such as 9 
or 12, a “straight road”). You can score more than once from a single 
roll, so if your total of nine was gained by rolling two fours and a one, 
you'd get the “straight road” score of three, plus another three for 
getting “two of a kind.” 

The only exception to this is rolling three of a kind (“triple 
crown”). You can score most of the other possible combinations, al- 
though you cannot get “two of a kind” and “triple crown” from the 
same roli. 

Now this may all seem very confusing. It is much easier to play 
than it is to read about, because the computer rolls the dice for you, 
works out what the score should be, and keeps the tally. All you have 


to do is bite your fingernails as you watch the computer defeating you. 


WELCOME TO THE GAME OF MALIBU 
WHICH IS PLAYED WITH THREE DICE.. 


WHAT IS YOUR NAME? TIM 


OK, TIM, PRESS THE SPACIE 
BAR WHEN YOU'RE READY TH PLAY... 


THIS IS ROUND 1 ae 
TIM: Soa ME: oO aa | 


a 
PLRST T°LL ROLL THREE DICE FOR 
MYSELF..-STAND HY... 
»«+ROLLING DIE t WHICH CAME UP 4 
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ci caesar et erm tO anny ene se re me HH Re le PH A A EL NBO rt NE HS me em 


».» ROLLING DIE 2 WHICH CAME UP 2 


ses pegs come csc omen S4¢4d SOME SE SO ehihd bbs Apne ena aren meee mee te BOS HO tan eee ee eed HA, Ne a re A eH He re ES 


..-ROLLING DIE 3 WHICH CAME UP 4 


ne eh ces ee me ret He ee eee emt dank Sm SE ee ll Pa ps ge le re BE HH ie re A me HO hm 


AND NOW IT*°S TIME TO ROLL. FOR YOU 
oe «ROLLING DIE 1 WHICH CAME UP 6 


»esROLLING DIE 2 WHICH CAME UP & 


«+sROLLING DIE 3 WHICH CAME UF 6 


I ROLLED 4 2 4 


YOU ROLLED 6 S & 
ft TWO OF A KIND FOR ME &% 
$$ TWO OF & KIND FOR YOU $% 


>>> AFTER ROUND t THE SCORES ARE: 
eee TIMs SO VZS00: SO 


~, 
wo 


THIS IS ROUND 2 
TIM: 5O ME: So 


FIRST I’LL ROLL THREE DICE FOR 
MYSELF ..«.STAND BY... 
eo ROLLING DIE 1 WHICH CAME UP 1 


wee ROLLING DIE 2 WHICH CAME UF & 


w«seROLLING DIE 3 WHICH CAME UF 1 


4000 ap sees mere meter ere TAHOE Heer ep ny Renn See a Se MD HD NN te FE Kitty Pa Me mL STO mere mre St NE HE SOP mee ee me ce hee Hie it BP Sem 


AND NOW IT*S TIME Th ROLL FOR you 
»» ROLLING DIE 1 WHICH CAME UP 1 


seem A A Rena nme ma rene ree ae GE IE I A ee re aE HE RL EA ri ot me as 


wet ROLLING DIE 2 WHICH CAME UF S 


eee pmae saan nenennmnee baht Mer PO sas anaes seme Sane met me mee mee seme rhe RE SHEE SHORE EO aren me ee reer met et caret neebt aniee inter nme came cance aces same Hm Ae 


».sROLLING DIE 2 WHICH CANE UP 3 


ee reenter He ith EE Se teh HEN HME A <A A re eres HAL HD Se se me re 


I ROLLED 1 & 1 


YOU ROLLED 1 5 3 
>> YOU CRACK @ STRAIGHT ROAD << 
$$ TWO OF A KIND FOR ME %¢ va 


>>> ARTER ROUND 2 THE SCORES ARE: “4 
eo> TIM: SO VI3001 SO 


THIS TS ROUND S&S 
TIM: 49 ME: 31 


FIRST I7LL ROLL THREE DICE FOR 
MYSELF...STAND BY... 
«ew ROLLING DIE 1 WHICH CAME UF 4 


«+-ROLLING DIE 3 WHICH CANE UP 2 


Re te tee ke ee km a cm ce re a Al hl el Se 


AND NOW IT’S TIME TO ROLL FOR YoU 
»e ROLLING DIE i WHICH CAME UP 2 


NL AE AE Ak YR PS A Fk le rb Ma re ek Ate re kl Pe ete 


1+«ROLLING DIE 2 WHICH CAME UF 1 


PN Ee en a me Hoe ay ae ea ee ha a Sr SY Me Se Hi 


»»sROLLING DIE 2 WHICH CAME UP 6 


te ee A me ee re a a ep ee ee i ep ee ay mn ee re me a ee er pm ee ee rte te 


I ROLLED 4 3 2 


YOU ROLLED 2 41 6 
o> T CRACK A STRAIGHT ROAD << 
>> YOU CRACK A STRAIGHT ROAD << 
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WELL. TIM, THAT"’S THE END OF 
QUA LITTLE GAME OF MALIBU.... 


TIM?’S FINAL SCORE IS 49 
AND MINE IS Si 


SQ I°M THE WINNER!!! 
DO YOU WANT ANOTHER GAME, TIM (CY OR ND? 


Ge, THANKS FOR THE GAME, TIM 
SEE YCHJ AGAIN SOME TIME 


Here’s a complete list of the winning throws (and remember that 
when one player gains a certain number of points, they must come off 
the other player’s total, so the totals always add up to 100); 


Total Name Points 

13 plus a pair... ccc c rece e ane veees SOUQI oiscciaceik sieve bier gintese coe 10 
BOE LS ii seis en's, ocd eh ite oe Wa wh Easy Rider................ 4 

Qot 12 as ices a ieiie sens teenars Straight Road ............. 3 

All the same ......... 2.00 eee eens Triple Crown.............4 5 
Two the same ........ ccs eee eens Two of a Kind............. 3 
Sits waite otk este o en Siveees Lucky Joe...........e eae 6 
Diceonsulucknts ceeeees LOW and Mean ..........., 7 

DSi a3 cte ateiesd, Od aieloae eee cies High Roller ...........04. 12 


The only losing throw is a seven (“Dreaded Seven”), which costs you 
two points, and adds two to your opponent. 


Here’s the listing for your own round of MALIBU: 


10 REM MALIBU FOR VZ300 
20 GOSUB 480 

SO REM AGOGO OCIOOGIO COORG CGI GER 

40 REM 4k THE MAIN GAME ROUTINE xx 

50 FOR T=t TO 5 

60 CLS 

70 PRINT:PRINT:FRINT "THIS IS ROUND"; T 

BO IF CSKHS<>O THEN PRINT AG;"2"EHSy" MES"; 
cS 

90 GUSUB 830 


100 PRINT:PRINT "FIRST I*LL ROLL THREE DICE FOR" 
110 PRINT "MYSELF...STAND BY...” 

120 GOSUB 830 

130 FOR Z=i TO 3:C(Z)=O2H(Z)=O:NEXT Z 

140 GOSUB 840 

150 PRINT:PRINT “NOW IT’S TIME TO ROLL FOR YOU" 
160 GOSUB 940 

170 PRINT:PRINT "I ROLLED"5C(1)>30(2)50(3) 

180 PRINTsPRINT "YOU ROLLED"3H(1) sH¢2) SHS) 

190 REM *%**% ASSESS RESULT OF ROLLS *xx 

200 HTSH(1) +H (2) +H (3) 

210 CT=C¢61)+0(2)4+0¢3) 


215 FeO 

220 IF (C(1)=0 (2) 0RC(2) =C (3) ORC (1) =0 (3) ) ANDCT=13 
THEN F=1 

225 IFF=1THENPRINT"THAT’S SOUGH FOR ME! ":CS=CS+10 
:HS=HS-10 

230 IF (H(4)=H(2) ORH (2) =H(3) ORH (1) =H(3) ) ANDHT=13 
THEN Fx2 

235 IFF=2THENPRINT" THAT*S SOUGH FOR YOU! ":HS=HS+10 
:CS=CS-10 


240 IFHT=150RHT=46THENHS=HS+4: CS=CS—4: PRINT" XEASY 


RIDER FOR YOoU*" 
250 IFCT=150RCT=S5THENCS=CS+4: HS=HS-43 PRINT” KEASY 
RIDER FOR MEx" 
260 IFCT=90RCT=12THENCS=CS+3: HS3HS-3rF=3 
265 IF F=3 THEN PRINT ">> I CRACK A STRAIGHT ROAD <<" 
270 [FHT=90RHT=12THENHS=HS+t3: CS=CS-3:F=4 
275 IF F=4 THEN PRINT" >> YOU CRACK A STRAIGHT ROAD <<" 
280 IFC (1)=€(2) ANDC (2) =C (3) THENPRINT"A TRIFLE CROWN 
FOR ME": F=5 
295 IF F=5 THEN CS=C€95+5:HS=HS-S:GOTO 300 
270 IFC (1)=C0¢(2) 0RC(2)=C (3) 0RC(1)=C (3) THEN F=6 
295 IFF=4THENPRINT"$$ TWO OF A KIND FOR ME $%" 
2:CS=C$+3: HS=HS-S 
300 [FH (1) =H¢2) ANDH(2) =H(3) THENPRINT"A TRIFLE CROWN 
FOR YOU": F=7 
305 IF F=7 THEN HS=HS+5:CS=CS-5:G0TO 320 
310 IFH(1)=H(2) ORH (2) =H (3) ORH (1) =H (3) THENF=8 
315 IFF=8THENPRINT"$$ TWO OF A KIND FOR YOU $#" 
sHS=HS+3sCS=CS-3 
320 IFHT=13THENPRINT"FOR YOU...LUCKY JOE!" 
:HS=HS+6:CS=CS-6 
499 


Bo 
310 
raid 
520 
40 
543 
50 


wed 


5460 
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TECTS=13THENPRINT"FOR THE VZ...LUCKYJOE!" 
1CS=CS+6:HS=HS-& 
Feo 
IE HT=2 THEN PRINT'LOW AND MEAN...FOR you!" 
+ HS=HS+7:CS=CS~7 
ff CT=3 THEN PRINT’LOW AND MEAN...FOR vzi" 
2CS=CS+7:HT=HT-7 
IF HT=i@ THEN PRINT"HIGH ROLLER FOR THE 
HUMAN, «2s Fat 


fj IF F=41 THEN HS=HSt+t12:CS=CS~12 


If CT=19 THEN PRINT"HIGH ROLLER FOR THE 
VZS00.., "9 hed 


5 IF F=@ THEN CS=CS+12sHS=HS-12 


TFHT=7THENFPRINT' YOU TRIPPED A DREADED SEVEN" 
tHG=HG~—2eCS=CG+2 

IFCTS7THENPRINT" I TRIPPED & DREADED SEVEN” 
tHSeHG+r2s CS=ClG-2 

REM *k*x PRINT OUT SCORES «xx 

PRINT: PRINT 

IF T#S THEN 430 


5S PRINT'3>> AFTER ROUND": T3 "THE SCORES" 


PRINTVARE "sASs"2 "EHS; VZ3001";CS 
GOSUE 8FO:GOSUE 83O 


S IF INKEY$<3°" THEN 435 


PRINT " > FRESS ANY EEY <5" 
IF INEEY$="" THEN 4.237 
SOUND RND(20),1 
REM «4% CHECK BOTH STILL IN GAME xx 
TF CS<1 OR HSe1 THEN T=S 
NEXT T 
REM «xk RESULT OF FIVE ROUNDS *** 
PRENT:PRINT “WELL, "sA$s". THAT'S THE" 
FRINT "END OF OUR LITTLE GAME OF 
MALIBU..." 
PRINTIPRINT A®s""S FINAL SCORE IS"s5HS 
FRINT "AND MINE IS'";CS 
GOSUB 830 
PRINT 
FeOrTF CosHS THEN Fol 
IF HSCS THEN F=2 
TF HSCS THEN F=3 
IF F=1 THEN PRINT "SO T°M THE WINNER! !” 
IFF=2THENPRINT"SO "AS: " TAKES THE" 
*PRINT “WINNER*S TROPHY" 


S45 IF Fa THEN PRINT “IT LOOKS LIKE @ DEAD HEAT....” 
570 GOSUB 830:GOSUR 830 
580 PRINT:PRINT "DO YOU WANT ANOTHER GAME (Y/N) 2?" 
590 PRINT 
600 Fe=INKEYS 
610 IF FS<>"¥" AND F#C>°N" THEN 600 
415 IF F¢="y¥" THEN 630 
620 PRINT "OK, THANKS FOR THE GAME, ":PRINT A; 
", SEE YOU AGAIN": 
625 PRINT ° SOME TIME":END 
630 FRINT “OK, “sA®s", STAND BY..." 
640 GOSUR B30 
450 GOSUBR 740 
460 GOTO 50 
670 REM OQ GOGO IO IK 
680 REM kkk INITIALISE *xx 
690 CLS:SOUND 9,1:SOUND 9,2 
700 DIM HC3),0(3) 
7iO PRINT:FRINT " WELCOME TO THE GAME OF MALIBU" 
720 PRINT “WHICH IS PLAYED WITH THREE DICE" 
730 GOSUB BSO 
740 PRINT: INPUT "WHAT IS YOUR NAME "As 
750 GOSUB 830 
760 CLS:FRINT 
770 HS=50:CS=50 
779 IF INKEY$<>"" THEN SOUND RND(15),1:GOTO 775 


780 PRINT " GE, "sAS3", PRESS THE" 
7865 PRINT “ SPACE BAR WHEN YOU" RE READY" 
787 PRINT “ TO PLAY...” 

800 RT=RND (G99) STF INKEYS=""" THEN 800 


810 RETURN 
@20 REM ** DELAY SUBROUTINE *x 
830 SOUNDRND (8), 12FORI=1TO 1600:NEXT I 
:SOUND RND (25), 1: RETURN 
840 REM *kx DICE ROLL xxx 
@50 FOR Z=1 TO 3 
860 PRINT "ROLLING DIE"3Z3 
870 FOR I=i TO 999:NEXT I 
880 K=RND (6) 
890 PRINT "WHICH CAME UP"3K 
900 PRINT towne 
910 IF C(Z)=0 THEN C(Z)=k ELSE H(Z) =k 
920 NEXT Z 
720 GOSUE 830 
940 RETURN 08 
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| | SNAKES’ EYES 


SNAKES’ EYES demands some more cool thinking under pressure. 
You and your computer take it in turns to throw a pair of dice. You 
add the total of the pips, and in turn add this to your score. 

You can roll the dice as many times as you like, but #f you rolt a 
seven, you automatically lose. Therefore, as you can see, the program 
demands you make decisions based on whether you should be careful 
and perhaps lose the round by not rolling a high enough score, or 
whether you should be greedy and go for the absolute maximum score 
and risk a seven. 


You'll find that it is relatively easy to program games like this on 
your computer. Once you've worked out the “mechanical” routines 
which do such things as roll the dice, and increment the score, for the 
human player, it is not very difficult to work out a routine to enable 
the computer to use the same mechanical routines. Most dice games 
do not demand much “intelligence” and their strategy can often be 
reduced to a couple of IF/THEN statements. Read books on dice 
games—such as the excellent Dice Games Old and New by William 
E. Tredd (The Oleander Press, New York, 1981)—to get ideas for 
games to turn into programs, and for simple ideas on how to play the 
game as well as possible. It is these ideas which you should find rela- 
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tively easy to turn into simple “intelligent algorithms” to enable your 
computer to play reasonably well against you. 

And if, as in this case and in ONE-AND-TWENTY, you stipulate 
that the human must go first, the computer knows exactly what target 
it is aiming at, and therefore starts a round with a considerable advan- 
tage, which helps overcome the machine’s inherent stupidity. 

Anyway, this is the listing for the game: 


REM SNAKES EYES 

CLS 

H=0:sCZ=0 

HS5=0:CS= 

FRINT "PLEASE STAND BY..." 


60 GOSUB 700 


CLS:PRINT: PRINT 


80 PRINT “YOUR TOTAL IS"HS:PRINT 
90 GOSUB 710 


100 PRINT “PRESS *“R* TO ROLL," 
110 PRINT ""@* TO QUIT” 

120 O#=INEEYS: OF=INKEYS 

130 WS=INKEYS 

BQ IF Wec> "RY AND WHc> “"Q" THEN 130 
1460 IF WH="Q" THEN 220 

170 GOSUB 370 

180 IF Z57 THEN 350 

190 HS=HS+Z 

OO PRINTiPRINT "YOUR TOTAL IS"HS 
10 GOTG 60O 


FRINTsPRINTsPRINT “STAND BY" 


230 GOSUB 700 

40 GOSUB 370 

SO IF Z*7 THEN 330 

260 CS=CS+Z 

70 PRINT:PRINT "MY TOTAL IS"CS 


280 PRINT "YOUR TOTAL IS"HS 


290 IF CS*HS THEN 220 

OO IF CS=HS THEN PRINT "IT’S A&A DEAD HEAT!" 
10 IF CS?HS THEN 350 

20 GOTO S106 


S30 PRINT!PRINT "YOU WIN! }"sH=H+1 
S40 GOTO Sioa 
S50 PRINT:PRINE “I WIN! §":CZ=CZ+1 


60 GOTO S10 


370 
3B0 
390 
400 
410 
420 
430 
440 
450 
440 
4706 
4980 
AQQ 
500 
Bio 
$20 
S30 
540 
550 
540 
70) 
58a 
aod 
&OO 
610 
20 
630 
440 
650 
640 
670 
680 
590 
FOC 
710 
720 
730 
74Q 
750 
760) 
770 
78O 


REM ROLL DICE 
CLS 

FOR Q=1 TO 20 

X=RND (6) 

Y=RND (4) 

PRINT:PRINT "DIE ONE:"X" DIE TWO:"Y 
FOR P=1 TO 3kO:NEXT P 

NEXT @ 

CLS 

GOSUB 710 

FRINT "DIE ONEs"X" DIE TWO:"Y 
Z=X+Y 

GOSUB 700 

RETURN 

FRINT:PRINT "THE SCORE IS: " 

PRINT , "YOU: "H 

PRINT ," ME: "CZ 

IF CZ+H=9 THEN 580 

GOSUB 710 | 

IF H>CZ THEN PRINT "YOU ARE LEADING!" 
IF CZ3H THEN PRINT “AND I°M IN THE LEAD...” 
GOSUR 700 

CLS 

IF CZ+H=9 THEN 620 

GOTO 40 


PRINT: PRINT: PRINT R 
PRINT “WELL, BUDDY, THAT’S THE END" 


FRING " OF THE GAME..." 

PRINTs PRINT: PRINT 

FRINT "YOUR FINAL SCORE WAS"H 

PRINT "AND MINE WAS"CZ: PRINT 

IF HXCZ THEN FRINT "I°M THE WINNER! !":GOTO 720 
PRINT "YOU" RE THE WINNER! !"sEND 

FOR F=1 TO 1000:NEXT F:RETURN 

PORT INT ete ee ne rrr ee re ree "sRETURN 
GOSUB 700:GOSUBR 700 

CLS: A=0!:L=2: Z=S 

FORE 2864672+A, 127+ (Z*16) 

IF L=2 AND (At1) /S2=INT((A+1)/232) THEN L=4 

IF L=2 AND PEEK (286735+A) 4232 THEN L=4 

IF L=4 AND PEEK (28672+A+32) <¢>32 THEN L¥1 

IF L=1 AND PEEK (28671+A)<>32 THEN L=S 


790 
Boo 
810 
820 
830 
840 
sao 
850 
870 
BEM 
890 
ga0 
910 
G20 
920 


200 


IF L=3 AND PEEK (28672+A-32) 2532 THEN Le 
IF Le@ THEN As=Ati 

IF t=il THEN ASA-1 

IF L=3 THEN A=A-22 

IF L=4 THEN A=A+32 

IF AeS11 THEN A=S1il1lsL=1 

IF Le2@ AND PEEK (286723+A)< 232 THEN L=4 

IF L=4 AND PEEK (28672+At32) 2°32 THEN L=1 


IF L=1 AND PEER (28671+A)<332 THEN L=sS 

IF LeS AND PEEK (28672+A-32) <332 THEN L=2 
C=RND(2)-1:1IF C=1 THEN X=x+i1ELSE X=xX-1 
IF X*<S THEN COLOR, 

IF X10 THEN COLOR, 1 

Z=RND (3) 

GOTO 740 


|| UNDER ’N’ OVER 


UNDER ’N’ OVER is a computer adaptation of the dice game usually 
known as “Under and Over Seven.” In this game, you bet on the 
likelihood of the total of a pair of dice landing so that the total is: 

* less than seven; 

* exactly equal to seven; or 


* greater than seven. 


Again, this is a game which—at first sight—seems ta offer pretty 
good odds to the player. However, if you played the game forever, 
with a pair of perfect dice, you’d find your losses would outweigh your 
wins by nearly 17%. 


Lines 70 and 120 ask you to place your bet, giving you the key 
for entering it (press A to bet under seven, B to bet on seven and C to 
bet on a total greater than seven), Lines 130 and 140 read the key- 
board using INKEYS$, rejecting (ine 140) any input which is not A, B 
ot C, 

Having received a valid choice, the odds are printed up by lines 
150 to 180 and then line 200 asks you to enter the amount of your 
bet. Of course, you can’t bet more than you have (not in this game, 
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» line 220 checks your bet (A) against your money (MD and 
en’t got enough prints up: “You haven't got that much!” 
next section rolis the dice, assigning random values between 
six to variables B and C, and adding them to produce total D 
80. You are told of the total by line 300. 


‘An. sutcome 


This is determined by the routine from lines 310 to 350 where a 
loss is first assumed (ine 310, with variable W, for “win,” assigned to 
the negative of your bet). This is changed-——if needed—into the cor- 
rect amount for a win if one has, in fact, taken place. You can see you 
get paid four times your bet for correctly specifying the dice will land 
with a total of seven (line 320) and even money for either over or 
under seven (lines 330 and 340). 

Lines 370 and 380 tell you about your win (or loss) and then line 
420 checks that you still have some money in hand. If you have, you 
are offered a new round of the game. If not, you are dismissed with a 
certain severity. 

Here’s the listing to turn your computer into a dice fiend: 


1G REM UNDER °N* OVER 

30 CLS 

40 Masa 

50 GOSUB 450 

40 GOSUB 470 

70 PRINT “OK, PUNTER, “TIS TIME TO” 

80 PRINT “PLACE YOUR BET... aan wna” 

909 GOSUB 470 

100 PRINT “ENTER “A* TO RET UNDER 7” 

110 PRINT “ 7B? TO BET ON 7, OR" 

430 PRINT “ "CG? TO RET GVER 7" 

13G AS=INKEYS 

140 TF AS<> "A" AND Ad<> “RY AND AS<> “C* THEN 130 

150 FRINT: PRINT “THE GODS ARE:" 

160 PRINT " A ~ FAYS EVEN" 

170 PRINT " & - PAYS 4 TO 1” 

180 PRINT “ C - PAYS EVEN" 

190 GOSUB 470 

200 INPUT “HOW MUCH WOULD YOU LIKE TO BET"sA 

210 GOSUE 476 

220 IF AoM THEN FRINT “YOU HAVEN'T GOT THAT MUCH! "s 
PRINT: GOTO 200 


250 
240 
aug 
2460 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
39O 
400 
410 
420 
430 
A4dQ 
4g 
460 
AZO 
4ao 
490 
Soo 
S10 
weQ 
| ie) a 


pee ee 
Paes 


240 


Mi ber] ©) 


360 


B=RND (6) 


UPB 


*A 


PRINT TAB(7)3;"DIE ONE CAME 
GOSUB 470 

C=RND (4) 

PRINT TAB(7);"DIE TWO CAME UF'C 
D=C+5 

GOSUB 470 

PRINT "SO THE TOTAL IS"D 
We-A 

IF D=7 AND AS="B" THEN W=4 
IF D<7 AND AS="A" THEN W=A 
IF D7 AND A#="C" THEN W=A 


M=M+W 

GOSUB 470 

IF W?0 THEN PRINT 
IF Wi0 THEN PRINT 
GOSUB 4790 

GOSUB 450 

GOSUB 470 

IF M1 THEN 300 
CLS 

GOTO So 
PRINT: PRINT 
RETURN 

FOR Pi TO 1000:NEXT P 
PRINT: PRINT 

RETURN 

PRINT “YOU'RE FLAT BROKE, 
PRINT "SO I GOTTA CLOSE TH 
PRINT "THERE*S NO ROOM FOR 


END 


"YOU" VE 
"AND SO 


"YOU NOW HAVE 


JUST WON $"W:GOSUB S30 
YOU LOSE $" (Wx-1) 


$"M 


* BUDDY? ":SQUND 3,9 

E CASINO":SOUND 2,7 

DEADBEATS IN MY 
JOINT": SOUND 1,5 


SOUND 21,4:SOUND 16,2:SOUND 16,1:SOUND 18,4: 


SOUND 16,4 


SOUND 0,1:SOUND 20,4:SOUND 21,4 
FOR I=0 TO 31:PRINT@I, CHRS (143): 


PRINT 
RETURN 


D1+448, CHR (143) 5 sNEXT 
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|| SEVEN/ELEVEN 


SEVEN/ELEVEN is another fine dice game, and one in which 
your goal changes in each game. Based on craps, you have a “target 
number” to reach in each round (known as your “point” in craps). 


> ia a ie a i we we | 
SOR ee « «| 
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wet eee af Marl? | 
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te 
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Craps is an American version of the old English dice game “haz- 


ard.” In SEVEN/ELEVEN, the complex betting of craps has been 
removed, leaving just the fun of the game. Rather than worry about 
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computing odds and placing “pass” and “don’t pass” bets, you can 
concentrate on the serious business of praying for the right roll to 
come up. 

In this game, you are playing against yourself. Your winning and 
losing rounds are tallied, so you know—at every point in the game— 
just how well (or otherwise) you are doing. 

You throw two dice at a time. If you throw a 2, 3, or a 12 with 
your first roll, you lose that round. Getting a 7, or an 11, on the first 
roll is the best thing you can do, because you’ve won that round with 
that single roll (which is why the game is called SEVEN/ELEVEN). 

Any other, number rolled as your first roll of a round becomes 
your “target number.” You have to try and roll this again, before you 
roli a 7 or an 11. If you manage to roll your target number again, you 
win that round. However, rolling a 7 or an 11 before you’ve rethrown 
your target total causes you to lose that round. 

Here is the listing of SEVEN/ELEVEN: 


10 REM SEVEN ELEVEN 

20 BS = "IN 7/11 YOU’ VE ROLLED" 

30 G = O:W =O: = O:M = 105 

40 CLS 

70 PRINT:PRINT "THE TALLY SO FAR:" 

60 PRINT "WING: "WY LOSSES: "L 

7O G= Get i 

6o M= M - & 

9O PRINT “YOU HAVE 4"M 

100 PRINT:PRINT “THIS [1S ROUND NUNBER’G 
110 GOSUR 200 

120 IF A=7 OR A=11 THEN 300 

130 IFA=2 OR A=3 OR A=12 THEN 360 

140 PRA 

150 CLG:PRINT: PRINT" YOUR TARGET NUMBER IS"F 
160 GOSUB 200 

170 IF A=F THEN 300 

i80 IF A=7 OR A=11 THEN 310 

190 GOSUR 340:60TO 150 

200 N=0:G$=INKEYS 

210 PRINT: PRINT"PRESS *R* TO ROLL” 

220 NeN+W: TF INKEY$="" THEN 2206 

2560 C = RND(6):FPRINT’ YOU ROLLED "C:SQUND C+12,C 
240 GOSUB 340 
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eng 
240 
270 
286 
290 
Sa 
310 


320 
330 
340 
330 
340 


BaPND (4) sPRINT"AND"B: SOUND B+24,B 
A=B+C 
PRINT:PRINT BSsA 
SOSUB 340 
RETURN 
PRINT*AND YOU'VE WON":WeW+irM=sM+20: GOTO 320 
PRINT"AND SO YOU LOSE"rLeL+i:SQUND 9,4 
:SOUND 6,4:SOUND 4,4 
GOSUR 340 
GOTO 40 
FOR Te1 TO SOO:NEXT T 
RETURN 
PRINT’SO THATS THE END OF THE ROUND": GOTO 320 
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Space Games 


Good old space, the final frontier. No collection of computer games 
would be complete without a few space games. 


209 


2106 


| |MOONLANDER 


The scenario of this program is pretty familiar, You are land- 
ing on the moon, with limited fuel, and for some reason your onboard 
computer is incapable of doing anything except reporting the state of 
the flight to you. The information you get is, of necessity, limited but 
adequate. 


a a] 
om oe le 
a ae _— 


= 


You are told, at all times, your height above the moon’s surface, 
how much fuel you have left, and the speed with which you are de- 
scending. You have to enter the correct amount of thrust to ensure 
you land gentiy on the surface. The fuel you have is limited, so you 
must ration it to ensure you have enough left in the last few seconds 
of flight to cushion your impact. A “high-score” feature (lines 370 and 
380) ensures you and your friends return to this program time and 
time again in an effort to get a better “galactic rating” and to create a 


less deep crater. 
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100 PRINTO42, USING “HH”; 


REM MOONLANDER 
HS=—-1 0000 
CLS: Eee Mer enns, 


PRINTS S4, "VELOCITY: " 
rFPRINT@LO0, “FUEL: " 


=—-20-RND(60):REM INITIAL VELOCITY 
B=1200+RND (390) REM HEIGHT 


C=320+RND (90) sREM FUEL 


S#h=CHRS$ (252) +CHRS (2354) +CHR# (254) 
FOR P=29152 TO 291835:FOKE FP, lS2:NEXT:O=0 
B= INT tk) sA=INT (A) 2 C=2INT (Cc) 


B:PRINTS74,USING "HHREE" SA 


110 PRINT@106, USING "dH SC 
1206 PRINTS (Qk32) +20, " “s@=INT (16-B/ 100) 


PRINTS (Qk32) +20, S¢ 


190 PRINT2416, "THRUST"; 


220 IF Tet THEN T=0 

250 C#xl-T 

240 BxE+A+ (T-3) 7/2 

250 A=sA+(T-5) /2 

24a IF Ceci AND B?1i00 THEN 


280 IF B3i9 THEN 90 
290 IF C31 THEN 310 


T#=INKEY$:IF VAL(T#) =O AND THe >"O" THEN 200 
T=VAL(T#) sSOUND @,1:sPRINT T 


ZOO 


IF ABS(B)<20 AND ABRS(A)<15 THEN 420 


PRINT@352," YOU HAVE RUN GUT OF FUEL" 
PRINTSS84, "YOUR SHIF CRASHED AT"ABS (A) "RPH" 


“METER DEEF CRATER” 


SC=100-ABS(A)sFOR P=Q TO 1 STEP -1:SQOUND P,1i:NEXT PF 


CLS:PRINT@S20, “YOUR GALACTIC RATING I5"5C 


$0 FAR IS"HS 


NEXT MISSTON” 


PRINT@384, "YOU HAVE LANDED SAFELY": FPRINT 


INTREPID CAPTAIN”: 


300 

310 

S20 PRINT@416, "CREATING A" INT (CABS (A) k45) 
350 
340 FOR P=1 TO SQ00;NEXT PF 
360 
270 IF SC*HS THEN HS=SC 
380 PRINTSSS2, "BEST RATING 
290 PRINTOS84, "PLEASE STAND BY FOR YOUR 
400 FOR P=t TO 1500:NEXT FP 

410 GOTO 30 

420 

430 PRINTS416, "WELL DONE, 
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SC=Ck234:G60TO 346 


| |HYPERWAR 


HYPERWAR is a major space simulation, which puts you in charge 
of patrolling a cube-shaped sector of space, which is ten parsecs along 
each side, The enemy is the race known as the Dosznti. There is only 
one Dosznti ship in this sector, and it is moving slowly through the 
cube as you play. Although you cannot destroy the ship, you can kill a 
number of individual Dosznti. In fact, the aim of the game is to get 
your “alien kill total” to the highest point possible before your energy 
banks are exhausted. Although there are many, many more Dosznti in 
this sector than there are humans, the aliens are notoriously bad 
shots, so your chance of wiping out a lot before your mission is termi- 
nated is rather high. 


You can only fire at the Dosznti when you are within three units 
of their position. Attempting to fire when they are out of range leads 
only to the crew response “The Dosznti ship is not within range, sir.” 

You have a limited amount of energy, and each successful hit by 
an alien craft diminishes your energy supply. 

I will not explain the game in any more detail, because to do so 
would diminish the enjoyment you'll get from playing it. The “be- 


213 


214 


havior of space” does not change from game to game, so you should 
find you begin to learn the tricks of space warfare after the first game, 
leading to higher and higher scores as you continue to play it. The 
game tends to explain the rules to you as you play, and the screen 
display has been organized to make it as clear as possible what is 
going on, 

This program will enable you to turn your computer console into 
one within your space ship, as you set out to rid the 10 parsec cube of 
the menace of the Dosznti mothership: 


1o REM HYPERWAR 

20 HS=0 

30 GOSUB 1410 

40 GOSUB 1150 

SO TF Led THEN 670 
60 GOSUE 1640 


7 LL. 25 


80 TI=TI-1 

90 PRINT "WHAT IS YOUR GQRDER, CAPTAIN?" 
100 PRINT " N, S, E, Ww" 

110 PRINT " ACDVANCE)., R(ETREAT) " 

120 PRINT ” HC YPERSFACE) ” 

130 FRINT ” IL (ASER) " 


140 INFUT Z% 

ISO IF Z$="N" THEN X 
140 IF Z$="S" THEN X 
170 IF Z$=5"E" THEN YeY¥+1 

180 IF Z2$="W" THEN Y=V¥--1 

190 ITF Z$="A" THEN Z=Z~1 

200 IF Z$="R" THEN Z=Z+1_ 

210 IF 2$="L" THEN GOSUB 490 

220) IF 2$="H" THEN GOSUB 1520 

230 IF Xi THEN x=1 

240 IF Yel THEN Y=1 

250 IF Zl THEN Z=1 

260 IF X210 THEN X=10 

270 IF ¥210 THEN Y=10 

2860 IF £2210 THEN Z=10 

290 GOSUR 890 

S00 ITF RND(10)2£7 THEN 40 

S10 PRINT "ORO KKK AKA AK KR RK RR KAR 
S320 PRINT "XDEEF SFACE SCANNERS READ: k" 
330 PRINT “x N/G —"A-X; TAB (24) 3 "K" 


340 
seal) 
340 
370 
380 
390 
4Oo 
41a 
420 
ag 
440 
8a 
460 
470 
430 
APO 
ao 
wi1® 
S20 


540 
rata 
360 
370 
~BQ 
Po 
OO 
6190 
420 
530) 
640 
650 
570 
690 
6970 
7OO 
71Q 
720 


730 
740 
7a0 
740 
770 


PRINT "k E/W -"B-V¥: TAB (25) 5 "x" 

PRINT "x A/R -"C-Z3 TABI 26) pK" 

PRINT "ORR RR RR RK KKK KKK RK KKK KKK RK" 

A=A+RND (4) -3 

BR=B-FRND (44) = 

C=at+RND (4) -3 

IF Axi THEN 4=1 

IF ASLO THEN A=10 

IF 8441 THEN B=] 

IF B10 THEN B10 

IF C1 THEN Ce-i 

IF Cr1lo THEN C=10 

GOSUB 14650 

GOTG 40 

REM EXKXKXKKKKKKE 

REM LASER OFTION 

L=L=+.7% 

GOSUB 14620 

IF ABS (A-X) 33 OR ABS(B-Y)'5 OR ABS (C2) 25 
THEN 1480 

PRINT "LASERS ARMED AND READY, SIR” 

BOSUB 14650 

IF RND(10) 25 THEN 59a 

PRINT “LASERS FIRE WAS UNSUCESSFUL, ", "CAPTAIN" 

GOTO 650 

PRINT "YOU DAMAGED THE DOZNTI SHIF,", "CAPTAIN" 

FOR J=£ TO 30 

FOR H=1 TO 30-J/2:PRINT " “ssNEXT H 

PRINT "WELL DONE! ! i"; 

NEXT J 

T=T+RND (1000)+784 

GOTO 14290 

REM GUT OF ENERGY 

GOSUB 14620 

FRINT "THIS IS SHIF’S MASTER CONTROL" 

GOSUBR 1650 

IF LesO THEN PRINT "ENERGY RESERVES DEPLETED" 

IF TiI=0 THEN PRINT “YOU HAVE STAYED IN SFACE 

TOO LONG" 

FRINTsPRINT "YOU DEFEATED"T'DOSZNTI":GOSUER 1650 

PRINT "LIFE SUPFORT SYSTEMS FADING..." 

GOSUB 14650 

PRINT " FADING...” 

GOSUE 1650 215 


havior FADING..." 


find 

le : WAS "TsiF FeHS THEN HST 
BEST SO FAR*HS:GOSUB 1650 
STAND BY FOR YOUR NEXT MISSION" 
SUB 1450:G0TO 30 
DKA K KAKA KA KKK 
E COLLIDED WITH THE", "DOSZNTI GHIF!I?! 

Per had 
L830 GOTO 690 


890 


Tare 


910 
920 


PAO 
940 
PSG 
FOO 


970 
980 

990 

1000 
1010 
L020 
1030 
1040 


LOSG 
16% 
1070 


LOBO 
1090 
Lian 
1220 


REM DOSZNTI REFORT 
IF AES (A-X) >SORABS (B-Y) :SORABS (C-Z) 5 OR 
RND (10) 27 THEN RETURN 
GOSUB 1620 
ERINT “CONDITION RED! CONDITION RED!": 
SOUND 24,8:SOUND 21,8 
GOSUB 1650: IF RND(O)<.25 THEN 1700 
FRINT “DOSZNTI ARE FIRING AT US, SIR” 
GUSUB 1450 
FRINT “CONDITION RED! CONDITION RED! ": 
SOUND 24,8:SQ0UND 21,8 
GOSLUB 1450 
IF RND(10)27 THEN 1110 
PRINT "DOSZNTI FIRE HAS HIT OUR SHIP, ", "CAPTAIN" 
DA=RND (9) +4 
BOSUE 1450 
FRINT "MASTER CONTROL REFORTS DAMAGE" 
FRINT “RATING DF"DA"TO THE ” 
IF DA=2 THEN PRINT "FOREWARD SECTION, SIR" 
iF D@>2 THEN PRINT "CREW SECTION, CAPTAIN" 
IF DAS AND DAC? THEN PRINT “MAIN DRIVE, SIR” 
IF DA>7 THEN PRINT "POWER RESERVE CHAMBER“ 
L=L-DA 
GOTO 1620 
GOSUB 1650 
PRINT "THE DOSZNTI FIRE MISSED OUR SHIF, CAPTAIN" 


1120 GOTO 1650 


$140 


REM XXX KAAKKKRK HK 


1150 REM STATUS REPORT 


1160 
Li7a 


CLS 


PRINT “KER RKAAKKKEKR ERK RR RK KKK KR RRR KEK” 


1180 PRINTIFPRINT “STATUS REPORT FROM": 
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FRINF "MASTER CONTROLS “ 


11970 BOSUB 1450 

1200 PRINT "ENERGY IN MAIN AND AUXILIARY BANKS: "L 
1205 GOSUB 1650 

£210 IF Les THEN PRINT:PRINT "WARNING...ENERGY LEVEL ” 
1215 IF LéS THEN PRINT "DANGEROUSLY LOW!" 

1220 PRINT “STARDATE TIMER READS" TI 

230 LF TI<8THENFRINT' !! § ! 'WARNING-MISSION 


1240 IF Ti<1 THEN 48© 
1250 BRUNT OO OOOO GOOG AOE" 
1260 IF T20 THEN PRINT:FRINT "DOSZNTI 
DESTRUCTION TALLY" T 
1270 PRINT "33>SHIPS GALACTIC CO-ORDINATES ARE" X3¥3 2 
1280 FRINT "335DOSZNTI MOTHERSHIFP LOCATED AT"A;B;C 
1290 PRINT:PRINT "THE DOSZNTI IS "3; 
1300 IF As>xX OF Be>Y THEN FRINT "TO THE" 
1310 IF A<xX THEN PRINT “ NORTH"; 
i320 IF A>X THEN PRINT " SOUTH"; 
1320 IF BeY THEN FRINT ” EAST"; 
1740 IF B&yY THEN FRINT “ WEST"; 
1350 IF C#Z THEN PRINT " OF YOUR SHIF, SIR" 
1360 IF C>Z THEN PRINT " BEHIND US, CAPTAIN" 
1370 IF C<Z THEN PRINT " IN FRONT OF US, SIR” 
1380 PRINT "XXARK KERR K KKK RR KKK ERE RRR RRR KEK 
1390 GOTO 1650 


1400 REM X&KKKKKERE 

1410 REM INITIALISE 

1420 CLS 

1440 LeS5xeRND (30) 2 THO: TI=S50 
1450 A=RND(10) 

1440 B=RND(1O> 

1470 C=RND(10) 

1480 X=RND(1O) 

1490 Y=RND(10) 

1500 Z=RND(10) 

1510 RETURN 

1520 REM HYFERSFACE OF TION 
1530 X=RND (10) 

1540 Y=RND (10) 

1550 Z=RND(10) 

1560 FOR J=1 TO 40 


1570 PRINT TAB(J)3 "k"2: PRINT re 


1580 
L590 
1400 
14194 
1420 
1630 
1440 
1650 
1440 
16706 


4480 


1490 
1700 


FOR Hei TO J:NEXT H 
NEXT J 

cLs 

RETURN 

FOR F=1 TO 1000:NEXT F 
CLS 

GOTO 1440 (4 
FOR P=i TO 1000:NEXT PF 
PRINT: PRINT 
RETURN 


PRINT "THE DOSZNTI SHIF IS NOT 
WITHIN RANGE, SIR" 
BOTD 1450 
GOSUB 1620:PRINT "CONDITION AMBER! ": 
SOUND 24,8:GO0OTO i450 


Brain Games 


I guess 90% of all games could, without stretching the definition too 
much, be called “brain games.” After all, they demand a certain 
amount of brain-power and application from you to play. 

However, the programs in this section under the heading of 
“brain games” are here because they demand a little more intellectual 
effort than several of the other games in the book. 


Here you'll have to unlock a twisted cube in CUBIC, will settle 
down to a game or two of MUMBLE MARBLE (also known as “soli- 
taire” and named as it is here because the game in “real life” uses 
marbles on a board), and will have to work under the pressure of a 
relentless clock to locate some atoms within a CYCLOTRON, 

If your brain still] has any power left after ali that, you can at- 
tempt a task which may appear impossible in FLIPPER and work out 
an algorithm to solve the SWITCHEROO problem in the fewest num- 
ber of moves. 
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| | IDAHO STARS 


IDAHO STARS are stars with a special property—numbers placed 
on the crossover points of the lines forming them will, when added 
together, produce the same total, no matter which line of numbers is 
chosen. Aceh 

Here, for example, is one such star: 8 


31 


ett er ai! 

As you can see, each line on the star sums to the same total. In 
this program, the computer generates an IDAHO STAR, leaving two 
or three of the numbers as zeroes for you to work out as quickly as 
you can: 

This is the listing to produce your own IDAHO STARS: 


10 REM IDAHO STARS 
20 GOSUB 480:REM SET UP STAR 
30 GOSUB 240: REM PRINT STAR 
49 GOSUB 7O:REM ASK FOR GUESS 
20 GOTO 30 
60 REM RHRKKKKXKARESE 
70 REM ASE FOR GUESS 
SO TF SC>0O AND SC<id THEN FRINT 

"YOU HAVE"SC "RIGHT SO FAR" 
BS IF NOT (SC>0 AND SCAIO) THEN PRINT 
90 GO=GO+1 
190 PRINT "THIS IS GO NUMBER"GO 
110 PRINT "ENTER ANY NUMBER YOU" 
120 INPUT "“THINE IS PART OF THE STAR"3G6 
130 SC=0 
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FOR J=1 TO 10 


IF G=A(3) THEN B(J)=ACJ) 
EF B(J)<>0 THEN SC=SC+1r 


NEXT J 


FOR P=1 TO 1000:NEXT F 


IF SC<10 THEN RETURN 


REM XXKKEKXKKKKARA RK KREKK KK 


GOSUB 340 


PRINT "YES, YOU'VE SOLVED IT! " 
PRINT "AND IT ONLY TOOK"GO"GOES..." 
IF GO<iG THEN GOSUB Saco 


PRINT "PRESS *“Y¥* IF YOU'D LIKE TO" 


PRINT "FRY ANOTHER STAR OF IDAHO, 


PRINT. "PRESS: * N°: TOcSTGOP ona eeiwe 


A= INKEYS 


IF ASt> "N" AND ABC > “Y" 


IF At="Y¥" THEN RUN 


THEN 280 


PRINT: PRINT "OK, THANKS FOR PLAYING" 


END 

REM XXXEXKKKKK 
REM FRINT STAR 
PRINT CHRS (28) ; 
PRINT TAB(LI)3BC1) 
PRINT: PRINT 


PRINT TAB(2)5" "SBC2)3" “SBCS)3" 
PRINT 

FRINT TAB(S) 38(6)3" "sRC7) 
PRINT TAB(11);58(8) 

PRINT 

FRINT TAB(S) 5 BC9)5" "SBC1O) 


RETURN 

REM KKKKKKKKAKK 
REM SET UP STAR 
CLS 

DIM AC10),8(10) 
6O0=0:; SC=0 

A=KND (9) 

B=RND (9) 

C=RND (9) 

D=RND (9) 

E=RND (9) 


"SHAD 3" 


TF A=B OR ASC OR A=D OR A=E THEN S30 
IF BC OR B=D OR B=E THEN 530 


IF C=) OR C=E THEN S30 


"SB (5) 


4600 
610 
&2oa 
430 
640 
foo 
560 
679 
£90 
O90 
FOO 
Pid 
720 
730 
740 
7S 
760 
770 
730 
790 
BOQ 
816 


IF D=E THEN S50 
X=RND C3) 

A(1) =X 
A(2)=X-B+C+D 

ACS) sate 

A(4) =A+D 

A(S) =X=B-C+E 
A(é&)=A 

ACT) =A4C 

A(8) =A+B 

ACP) =X-2kB+2xD+E 
A(10) =X-2kB~C+D+2%E 
FOR J=1 TO 10 
BJ) =A CJ) 

IF A(J)=0 THEN RUN 
NEXT J 

B(RND (10) )=0 

E(RND (10) ) =O 

B(RND (10) )=0 
RETURN 


FOR TUs=1 TO 9:READ FR,DU:SOUND FR, DU: NEXT: RETURN 
DATA 16,3, 18, 2, 20,5, 20, 1,20, 2,18, 1,20, 2,21,5, 20,3 
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C1 IDAHO SQUARES 


As expected, IDAHO SQUARES are like IDAHO STARS, except 
that the digits which add up to a common total lie along the horizon- 
tal, vertical and diagonal lines of a nine by nine grid, rather than 
along the lines forming a star. 


Here’s an IDAHO SQUARE being solved: 


VZ300 IDAHO SQUARES 


co 9 14 


226 


226 


THIS 


IS GUESS NUMBER 


YOU HAVE S RIGHT 


ENTER 


VZE0O 


THIS 


YOUR GUESS? 3 


{DAHO SQUARES 
~9 14 

6 oO 

Oo 1 


iS GUESS NUMBER 


YOU HAVE 3S RIGHT 


ENTER 


VZSO0 


YOUR GUESS? S 


IDAHO SQUARES 
-F 14 

6 § 

O -1 


THIS 7S GUESS NUMBER 


YOU HAVE 6 RIGHT 


ENTER 


YOUR GUESS? 13 


1 


can) 


a 


nd 


3 


VZ300 IDAHO SQUARES 


13° -9 14 


THIS IS GUESS NUMBER 4 
you HAVE 7 RIGHT 


ENTER YOUR GUESS? 2 


VZ3200 IDAHO SQUARES 


| Cf 14 
7 & ba 
G oO —-f 


THIS IS GUESS NUMBER 5 
YOU HAVE 7 RIGHT 


ENTER YOUR GUESS? -2 
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VZ300 IDAHO SQUARES 


1s -9 14 


THIS IS GUESS NUMBER 6 
YOU HAVE 8 RIGHT 


ENTER YOUR GUESS? 21 


VZ300 IDAHO SQUARES 
is -9 14 
7 & 5 


~@ B1 -2 


YOU* VE SOLVED IT 
IN JUST 6 GUESSES! 


As you can see, you simply enter any number which you think 
may make up part of the grid, and the computer checks to see if your 
number is one, or more, of the missing numbers. If your guess is cor- 
rect, the relevant zero (or zeroes) in the grid changes magically into 
the number you’ve entered. A tally is kept of the number of guesses it 
has taken you to solve it. 


Here’s the listing to produce your very own IDAHO SQUARES. 
You can change the nines in lines 250 to 280 to a lower digit for 
squares which are easier to solve, and to a higher one for squares 
which are more difficult. 


REM VZ300 IDAHO SQUARES 
GOSUB 2350:REM INITIALISE 


J=I+1 
CLSt PRINT: PRINT 
PRINT “VZ300 IDAHO SQUARES":PRINT:PRINT TAB(S) ; 


M=0 

FOR Z=i TO 9 

PRINT B(Z)3" "3 

IF SkINT(Z/3)=Z THEN PRINT: PRINT:PRINT TAB(3) 5 


IF B(Z)=A(Z) THEN Msi+1 

NEXT Z 

PRINT 

IF M=9 THEN PRINT “YOU? VE SOLVED IT IN JUST" 


3 IF M=9 THEN PRINT " "33-15" GUESSES":END 


PRINT:PRINT "THIS IS GUESS NUMBER": J 

PRINTSPRINT “YOU HAVE" 3M: "RIGHT": PRINT 

INPUT"ENTER YOUR GUESS"; X 

FOR z=1 TO 9 

IF B(Z)=O AND A(Z)=X THEN B(Z) xX 

NEXT Z 

GOTO 30 

END 

REM AGG OOK 

REM INITIALISE 

DIM A(9), BC) 

A=RND (9) 

B=RND (9) 

C=RND (9) 

D=RND (9) 

IF A=B OR B=C OR A=C OR A=D OR B=D OR CKD 
THEN 260 


Ati) A+B 

A (2) =A- (B+C) 
ACS) =AtFC 
A(4) =A~B+C 


2406 ACS)=A 


A(S) =A+B-C 


340 &¢7) AC 
S70 A(8) =AtEt+C 
380 A(9)=A-B 
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S90 FOR GQ=1 TO 9 
400 BC) =A CD) 
410 NEXT @ 

420 BLAd= 

430 BCR) 20 

440 ECC) 0 

450 BCD) =O 

440 J=0 

470 RETURN 


42 


49 


| | EXECUTIONER 


As you can tell, this garne is a computer variation of the old pencil- 
and-paper game, “hangman.” In this game, the computer chooses a 
word frorn its store (held in the DATA statements from 500 to 740) 
and then challenges you to guess it, 


we 


The number of guesses you'll get is related to the length of the 
word (see lines 120 and 170). 

This listing will enable you to risk your neck in the noble cause of 
increasing your vocabulary: 


REM EXECUTIONER 

CLS: RESTORE 

¥=O02 Lis" "REM 28 SPACES 
PRINT*PRESS °E* WHEN YOURE READY” 

PRINT'’TQ FACE THE EXECUTIONER..." 

IF INKEVYS<>"E" THEN 60 

FOR G=1 TO RND(L2s) 

READ At 


100 NEXT 6 a 


110 
120 
L3Q 
1406 
150 


GOSUB 480 

N=LEN (A$) 2 DIM BUN) DCN) 0% (24) 
FOR G=i TON 
B(G)=ASC (MIDS (AS$,G,1)) 
D(G)=B(G) 

NEXT G 

Q=INT (NtN/2+. 5) 


” CLS:PRINTSPRINT"YOU HAVE TO GUESS THE EXECUTION-" 


PRINT"ER*’S WORD IN JUST"Q@" GUESSES" 


> GOSUB 480: GOSUB 480:GOSUB 480:CLS 


FOR J=1 TO Q:Y=Y¥rl 
GOSUB 400 
IF H=N THEN 340 
PRINT: PRINT:FPRINT Q+1-J"CHANCES LEFT...."sQS=INKEYS 
PRINT: FRINT"ENTER YOUR NEXT GUESS? "; 
C$=INKEYS:1IF C$="" THEN 255 ELSE PRINT Ci: 
FOR I=1 TO 100: NEXT 
F=ASC (C#) 
O¢ (F-64) =CHRS (F) 


» FOR G=1 TON 


IF D(G)=F THEN D(G)s0:J=J-1 
) NEXT GsNEXT J 
GOSUR 480 
GOSUB 400 
PRINT: FRINT:FRINT"SO SORRY,BUT YOU GOTTA GO NOW!' 


:SQOUND 1,8 
PRINT" THE EXECUTIONER’S WORD WAS "s4$;L% 
:GOSUB 480:END 
PRINT:PRINT"WHEW! YOU'VE STAVED OFF" 
PRINT"EXECUTION FOR ANOTHER DAY. “ 


2 PRINT" YOU GOT IT IN'Y-1"GUESSES" 


PRINT: PRINT" THE EXECUTIONER*S WORD WAS":SFRINTAS 


5 FORI=1 TO 20:FOR K=i TO 200:NEXT:COLOR, i: 


FOR K=1 TO 200:NEXT 
COLOR, 0: NEXT 

PRINT"DO YOU WANT ANOTHER GO?" 

GOSUB 495:IF AS<>"N" AND AS<>"V" THEN 385 

IF A$="N"THEN END ELSE RUN 

H=0:PRINT CHR$(28) 

FOR Vel TO 26:PRINTOV+2, 0% (V) rNEXT ViPRINT:PRINT 
FOR E=1 TON 

IF B(E)=D(E) THEN PRINT“—"; 


430 IF BCE) <>D(E) THEN PRINT CHRS(B(E)) 3 sH=H+i 
440 NEXT E 
450 PRINT: PRINT: 1F He eN FHEN PRINT"YOU HAVE"H 
te “a . te 
840 PRINT LETTERS CORRECT 


470 RETURN 
480 FOR O=1 TO SOO:NEXT O 
490 RETURN 
495 AS=INKEY#: AS=INKEY$: RETURN 
S00 DATA"MERIDIAN", "MERIT", "MERMAID", "MERRIMENT" 
510 DATA"OVERSEER", "OXIDANT", "OXYGEN", "PALPABLE" 
» "UNORTHODOX" 
520 DATA"PANDEMONIUM", "PANEGYRIC", “PARADOXICAL” 
» "PHEASANT", "FLY" 
S330 DATA"RUMPUS", "RUMMAGE", "SACRAMENT", "SABRE" 
, "SCHEMATIC", "TAR" 
540 DATA"SEDIMENT", "SEXAGENARIAN", “TEMPERATE” 
, "TELESCOPE", "CAR" 
§50 DATA"GYPSY", "RHAPSODY", "SCALENE"”, "SATELLITE" 
» "MARSHMALLOW" 
540 DATA"HELICOPTER", "CASSEROLE", "ILLUSTRATE" 
» "SYMPATHY", "MOUSE" 
570 DATA"REFRIGERATE", "MAMMOTH", “KALEIDOSCOPE” 
. "DUPLICATE", "CAT" 
580 DATA" INSATIABLE", "SILHOUETTE", "BONDAGE" 
, "BONUS", "DECIMAL" 
590 DATA"DEAFEN", "THEORY", "THISTLE", "SABOTAGE" 
» "COURTESY", "TRY" 
600 DATA" DEBUTANTE", "DECADENCE", "KETCHUP" 
, URKINDERGARTEN”, "METRE" 
610 DATA" SUPERCAL IFRAGILISTICEXPIALIDOCIOUS", 
"COMPUTER", "HOUSE" 
620 DATA"OLYMPIC", "OMNIBUS", "OMNIPOTENT" 
» “MAGNANIMOUS",, " ZEALOUS" 
630 DATA" ZOOLOGY", "ZILLION", "XEROX", "XYLOPHONE" 
» "QUINCE", "YUMMY" 
640 "FATIGUE", "FALSETTO", "EQUIVALENT", “ENZYME” 
. "DISRUPT", "HEART" 
650 DATA"QUEAGY”, "IMBECILE", "BIENNIAL" 
» "ACCOMPLISHMENT" , “TONGUE” 
660 DATA"KUNGFU", "JAVELIN", "DEMANDMANT" 
,"OOMIAK", "JERKIN", “QUAD" 
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670 DATA" ZEBRA", “TOMAHAWK”, "MARZIFAN# 
» “PULVERI ZE", "FACSIMILE" 
680 DATA"HYPOCHONDRIAC", "RECRUIT" 
» "CONJURE", "STEWARDESS", "DEBUT" 
490 DATA"LIZARD"”, "SCHOLASTIC", * THEOLOGY" 
» "GEOMETRY", "GIBBERISH" 
700 DATA" VEGETABLE", "WINTERGREEN”, "YELLOW" 
» "YEARLING", “INFINITY” 
710 DATA"PRATRIE", “SCHEDULED”, "RHEUMATISM" 
» “MOSQUITO”, “DOG”, "TAB" 
720 DATA" BOX uo : “JET u 5 Ww OUIP" 5 "QUIZ u 5 a QUACK a 2 
, "AXE", "BIB", "FIB", “WET” 
730 DATA" YACHT", "VERSUS", "PRECIS", "VILIFY" 
s "WOMANHOOD" , "WOO" 
740 DATA" YOU", "WOODWIND", "ACACIA" 
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| | CUBIST 


This is a two-dimensional version of the colored cube puzzle which 
swept the world from Hungary. 
The “cube” starts off looking like this: 


G) GQ) pe 
Go Go et pet 
-& BW hO 
A BRN 


After some manipulation by the computer, it will look something 
like this: 


Oo Go 
wee Co ID 
fh Gt 
im WBS 


4244 
Your job is to get it back into its original state in as few moves as 
possible. The numbers on the cube rotate in groups of four, spinning 
in a clockwise direction. This means that 
12 
34 
when rotated will look like this: 
31 
42 
You enter a number in order to 
rotate the elements of the cube. 


The key to move is as follows: 


23 4 
6 7 8 
10 11 12 
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This is the listing for CUBIST: 


BO DIM AC(4),B(16) 
40 CLS 

5O Bei: F=0 

60 FOR De1 TO 4 

70 C=O 

do IF B=t THEN C=1 

90 IF B=3S THEN C=2 

100 IF B=? THEN C=3 

110 IF B=11 THEN C=4 

120 B(B)=C 

130 BC(B+i)=C 

140 B¢h+4)=0 

150 B(B+5)=C 

160 C#d 

170 IF Bi THEN C=2 

180 IF B=3 THEN C=6 

190 IF Be9 THEN C=2 

200 B=B+C 

210 NEXT D 

220 GOSUR 410 

250 PRINT! PRINT 

240 IF Feii THEN PRINT@224, "TWISTING..." 
250 Fee+1 

P60 FOR P=1 TO S00:NEXT F 
270 IF F<ti THEN X=RND(12) 
280 IF F210 THEN GOSUB S90 
290 IF X¢<2 OR X=5 OR X=9 OR X212 THEN 270 
B00 ACL) =BCX) 

B1l0 ACB) =BCX+4) 

32O A(3)=B(X+3) 

BBO AC4)sBCX-1)_ 

B40 BCX) =AC4) 

S50 BC(X+4)=A1) 

B6O BCX+3) =A (2) 

27Q EBCX-1)=AC3) 

380 GOSUB 410 

390 FsP+t 

400 GOTO 270 

410 PRINT CHR&(28) 

420 PRINT: PRINT 

430 FOR B=1t TO 16 
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PRINT B(B); 
IF B/4=INT(B/4) THEN PRINT 

NEXT B 

FRINT: PRINT 

IF F<tO THEN PRINT2O," TWIST NUMBER"F 

IF F310 THEN PRINT90," YOUR CUBIC NUMBER"F~10 
IF F<i1 THEN RETURN 


P=) 

IF B¢t)=1 AND B(2)=1 AND B(3)=2 AND B(4)=2 
THEN P=P+t 

IF B(S)=1 AND B(6)=1 AND B(7)=2 AND B(9) 2? 
THEN P=F+1 

IF B¢C?y=S AND B(1O)=3 AND B(11)=4 AND Bt12)=<4 
THEN F=P+1 

IF B(1i2)=3 AND B(14)=3 AND BCiS)=4 AND B(16)=4 
THEN P&P+d 

IF Fer4 THEN RETURN 


PRINTS384, "YOU SOLVED IT IN JUST"F-10°TWISTS" 
FRINT “WELL DONE, CUBIST! ":END 

ZS=INKEYS: Z$31NKEYS 

FRINT@ S20, "ENTER YOUR CHOICE (1 - 9)" 

Lis INKEY$: X=VAL (LS) 

IF X£1 OR X29 THEN 610 

SOUND 31,1:1F X<4 THEN X=X+i:RETURN 

IF X<7 THEN X=X+2: RETURN 

X=X-+: RETURN 

RETURN 
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|| MUMBLE MARBLE 


Our next brain game is a computer version of the game you may 
know as “solitaire,” in which you have to move marbles around a 
board. At the start of the game only the center hole is empty. You can 
jump over marbles into empty holes, and you remove the inatble so 
jumped over. The idea of the e game is to end up with just one marble 
in the center hole, : i ; 


Many stories have been told about the origin of this game. The 
most interesting of these tales is the one that says the idea of the 
game was worked out by a prisoner in solitary confinement in the 
Bastille, who devised it as a way to relieve the monotony of his im- 
prisonment. Whether that story is true or not, there is no doubt that 
the game can become quite addictive, as you try to devise a foolproof 
way to solve it, 
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Here’s what the MUMBLE MARBLE display looks like at the 


start of the game: 


10 
20 
30 
40 
sta) 
60 
70 
80 
90 
100 
110 
120 
130 
140 
2406 


1234567 
000 1 
00 0 2 

0000000 3 

o00* 000 4 

0000000 5 
0090 6 
000 7 


A few moves later it could look like this: 


1234567 
000 1 
0 * 0 2 

o*00000 3 

oof 0000 4 

0000000 5 
#00 6 
* 00 7 


Here's the listing, so you can set out to solve the problem your- 
self: 


REM MUMELE MARBLE 
GOSUB 400 
GOSUB 250 
REM ACCERT MOVE 
PRINT@416, "WHICH MARBLE DO YOU WANT TO MOVE"; 
PRINTO448, ""3s INPUT A 
IF A=99 THEN GOTO 240 
IF A<i1l OR A*77 THEN GOTO 40 
IF A(A)<>79 THEN GOTO 40 
PRINT#446,A"TO WHERE"; 
INPUT & 
IF Beli OR B>77 THEN GOTO 100 
IF A(B)<3E THEN GOTO 100 
AC(A+B) /2) =E1 0 (A) BEL ACB) =79 


150 
140 


MOVE=MOVE+1 
COUNT=0 


170 FOR F=11 TO 75 


180 
196 
200 
210 


IF ACF) =79 THEN COUNT=COUNT+1 
NEXT F 
GOSUB 250 
PRINT "THERE ARE";COUNT; "MARBLES "'s 
FRINT "QN THE BOARD" 


e220 IF COUNT< 31 THEN GOTO 40 
230 IFA(44)=79THENPRINT"YOU DID IT, IN 


240 
200 


260 


JUST"; MOVE; "MOVES ! "SEND 
PRINT “THE GAME IS OVER AND YOU'VE FAILED! ":END 
REM FRINT QUT 
PRINT9448,L%:PRINTCHRS (28): 
PRINT “ENTER SIDE CO-ORDINATE FIRST" 
PRINT TAB(S);"ENTER 99 TO CONCEDE" 
PRINT " 12345 6 7" 
PRINT TéE (&) 3 
FOR Deit TO 75 
T=10% CINT(D/10)) 
IF D-T=8 THEN D=D+2:;F RINT T/10:PRINT 
TAB(S);3:GOTO 350 


PRINT CHR®(A(D) 5" "5 

NEXT D:iFRINT " 7" 
PRINT "MOVES SO FAR: "3; MOVE 
RETURN 


REM INITIALISE 

CLS:DIM A(a7) 

E=42:L4=" 

FOR D=11 TO 75 
T=LOK (INT (D/10)) 

IF D-T=8 THEN D=D+3 

READ ACD) 

NEXT D 

MOVE=0 

RETURN 

DATA 32,32, 79,795 79,352,352 
DATA 32, 32,79, 79,795 32452 
DATA 79,795 795 795 795 79579 
DATA 79,79, 794425794794 79 
DATA 795794795 79479, 79,79 
DATA 32,32, 79, 79,79, 32,32 
DATA 32,32,79,79,79 
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|| CYCLOTRON 


In CYCLOTRON, you fire atoms into the machine from the top, by 
specifying a number, and you have to try and locate particles of anti- 
matter hidden within the machine from the behavior of the atom. 


If the atom hits a particle of antimatter it will either be absorbed, 
or deflected to the right or left. An atom may be affected by more 
than one particle of antimatter, which makes the resolution of the 
problem even more difficult. 

There are always three particles of antimatter in the machine, 
although they could well ali be in the same number cyclotron. You 
have an extremely limited number of goes in order to locate the anti- 
matter. At each go, you can either enter the number where you want 
to enter an atom, or be reckless and enter 8, which gives you a chance 
to guess the location of the antimatter particles. 
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And here’s the listing for your very own cyclotron: 


10 REM CYCLOTRON 
20 CLS 


Le) 

ao 

GO 

190 
110 
120 
Lad 
140 
1506 
140 
170 
1980 
L7o 
ae 18) 
ZO 
an 
2So 
24d 
ae 
240 
270 
200 
290 
BOO 


310 
B20 
330 
SAO 
SSO 
260 
27D 
ZBO 
390 
4AOQ 
410 
420 
430 
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NeO:HS#9:DIM B(7), (3) ,W¢3) 
REM PLACE ANTIMATTER 
FOR A=1 TO 3 


EA) =RND (7) 

NEXT A 

FOR H=é TO t STEF 1 

CLS 

PRINT:PRINT!PRINT" YOU HAVE"H" SECONDS" 

PRINT"ENTER CYCLOTRON NUMBER, " 

PRINT"GR @ IF YOU THINK YOU KNOW" 

PRINT*WHERE THE ANTIMATTER LIES” 

INFUT © 

IF C=@ THEN 520 

GOSUB 450 

D=} 

IF B(D)=C THEN 350 

IF Dé& THEN D=D+1:GOTO 220 

GOSUB Soo 

PRINT"THE ATOM EMERGED FROM"C:SOUND 31,5 

FOR Zeit TO 1000:NEXT Z 

NEXT H 

PRINT:PRINTSPRINT =~ 

PRINT" SORRY, TIME IS UR 

PRINT:PRINT" THE ANTIMATTER WAS IN':SOUND 6,7: 

FOR A=1 TO 3 ala a 

PRINT BCA): 

NEXT A 

END 

REM ANTIMATTER ACTS 

IF RND(10)>9 THEN 420 

IF C=1 THEN C=2:G0TO 210 

IF C=7 THEN C=6:GOTO 210 

F=RND (2) -4 

C=C+F 

GOTO 210 

REM ANTIMATTER ABSORES ATOM 

PRINT" THE ATOM HAS BEEN ABSORBED":SOUND 31,1: 
SGUND 30,1 


44g 
450 
460 
AZO 
480 
490 
BOO 
$10 
aed) 
30 
340 
SEC) 
S40 
370 
58a 
D970 
EO 
610 
630 
6350 
640 
650 
650 
&70 
BO 
690 
7OO 
71a 
720 
730 
7a 
730 
76O 
77a 


739 


GOTO 2ée 

PRINTSPREINT:FRINT TAB(S+2x*0) 30 

FOR Z=1 TQ S 

PRINT TAR(G)3"- - ~~ - - - a 

NEXT Z 

RETURN 

PRINT TARE (2+2%xC)+C 

RETURN 

REM LOCATION ATTEMPT 

PRINT"WHERE DO YOU THINK" 

PRINT"THE ANTIMATTER LIES?" 

INPUT @(1),@¢2),@¢3) 

FOR T=1 TO S:W(TISB(T) sNEXT T 

SRat 

FOR X=1 TO 3:FOR Y=1i TO 3 

IF GtX)=BCY) THEN SRESR+1sB¢CY) =020¢xX%)=0 

NEXT ¥,X 

GOTO 650 

FOR F=% TO 3 

BiP}=WiP) 

NEXT F 

IF SRS THEN 700 

iF SR2O THEN PRINT’ YOU LOCATED" SR" CORRECTLY” 

IF SRO THEN PRINT" YOU ARE COMPLETELY WRONG!” 

FOR T=1 TO 3s B¢T)=Wt¢T) :NEXT T 

GOTO 260 

PRINT"WELL DONE. YOU LOCATED THE” 

PRINT"ANTIMATTER WITH"H”’ SECONDS" 

FRINT ,"TO SPARE": GOSUB 770 

IF 6-HLHS THEN HS=6-H 

PRINT:IFRINT"YOUR BEST TIME SO FAR IS"HS 

FOR Z=1 TG 1000:NEXT Z 

GOTO 90 

SCUND 21,4:SO0UND 146,2:SOUND 14,1:SOUND 18,4: 
SOUND 14,4 

:SOUND ©,1:SOUND 20,4:SOUND 21,4:RETURN 


245 


246 


| | FLIPPER 


This intriguing game can provide you with a considerable degree of 
mental stretching. When you run the game, you'll see a mix of X’s 
and *’s on a three by three grid. You have to end up with an X in the 


middle, and eight *’s surrounding it. 


You enter the number of the place you want to hit with your 


flipper. Flipping a corner piece causes those adjoining it to change 
into their opposites (that is an K becomes an *, and an * becomes an 
X). Hitting the middle piece on a side with your flipper causes the twa 
on either side of it to change, and hitting the middle piece changes the 


middle pieces on each of the sides. 


1a 
20 
SO 
bei 
60 
7a 
80 
90 


The piece you hit always changes in each case. 
Here’s the listing so you can do it yourself: 


REM FLIFPER 

DIM AC10)>,F¢4)sCL5 

Pla-1:0=42: X88: F=0 

FOR C=1 TO 

ACC) =0 

IF INT CRND (100) /100+,5)=0 THEN ACC) =X 
NEXT C 

GOSUB 270 


100 M=M+1 


110 
120 
130 
140 
150 
160 
170 
190 
200) 
2lo 
220 
225 
230 
240 
Maes 8) 
260 
270 
280 
290 
295 
300 


Sia 


oad 
S30 


340 
S50 
270 
380 
39Q 
400 
410 
42g 
430 
AAO 


N=0 
FOR C=1 TO 9 
IF A(C)=X THEN N=N+1 
NEXT C 
IF N=i AND A(S)=X THEN 350 
IF MO THEN FRINT:PRINT’ THAT WAS MOVE"M 
PRINT:PRINT"NUMBER OF X ISN" " 
PRINT!PRINT"WHICH ONE DO YOU WANT TO FLIP?" 
IF INKEY$<2""" THEN 200 
AS=INKEYS 
N=VAL (A$) :IF Néi OR N29 THEN 210 
IF ACVAL(AS))=88 THEN 210 
P=N:SOUND 31, 1 
GOSUB 380 
GOTO 9O 
END 
PRINT CHR (28) 
IF Feo THEN PRINT" YOU FLIPFED"P ELSE PRINT 
PRINT: PRINT’? 2 S",CHRS&(ACL)) 3” "SCHR#(ACZ) 3" " 
FRINT CHR (AC3)) 
PRINT 
PRINT'4 S 6", CHR®(A(4)) 3" “gCHRS(ACS) )3 

" UCHRY (ACE)? 
PRINT 
PRINT" 8 9", CHRS(AG7))3" "SCHR (ACE) ) 3 

"US CHR (ACF) ) 
RETURN 
PRINT:PRINT:FRINT"YOU SOLVED IT IN JUST"M" MOVES" 
END 
IF A(N)=X THEN RETURN 
IF N=i THEN F(1)=2:F (2) =42F (3) =53F (4) 510 
IF N=2 THEN F(1)=4:F (2)=39F (3) =103F (4) =10 
IF N=3 THEN F(i)=23F (2) =5:F (3) =62F (4) =10 
IF N=4 THEN F(1)=1sF(2)=72F ¢3)=10:F (4) =10 
IF N&S THEN F(1)=22F (2) =4:F (3) s8:F (4) 26 
IF N=6 THEN F(1)=%:F (2) =9:F (3) =105F (4) =10 
IF N=7 THEN F(1)=4:F (2) =5:F (3) =82F (4) =10 
IF N&8 THEN F(1)=7:F (2) =9:F (3) =10:F (4) =10 
IF N=9 THEN F(1)86:F (2) =SsF (3) =6:F (4) =10 
FOR G=1 TO 4:F=0 
IF ACF(G))=X THEN F=1 
IF F=1 THEN A(F(G))=@ 
IF F#O AND ACF (G))=@ THEN ACF (GG) ) =x 
NEXT G 
ACN) ®X:RETURN 


[| SWITCHEROO 


In SWITCHEROO, you are presented with the digits 1 to 9 arranged 
in a random order, and you have to get them into 123456789 order, 
in as few moves as possible, 

You enter your moves as numbers, and the computer performs a 
“switcheroo” using the number you’ve entered. 


10 REM SWITCHEROO 
20 CLS: B=B+ 
30 PRINT:PRINT*PLEASE STAND BY...‘ 
40 GOSUB 106 
30 GOSUS 220 
6 IF As=°173458789" THER 390 
70 A=Hti 
80 6QT0 50 
90 EAD 
100 H=1:%=0 
110 Ags"" 
120 FOR T=1 10 9 
130 L=RNDI9) +88 
140 Q=1 
150 IF MIDS(A8,2, 1}=CHRE(L) THEN 130 
160 IF Q<T THEM Q=8+1:60T0 150 
70 AS=ABHCHRSIL) 
180 PRINT AS 
190 PRINF:SOUND fy 1 
208 NEXT T 
210 RETURN 
220 KER PRINT QUT 
230 FF MDL THEN 240 ELSE CLS 
240 PRINT: PRINT3 PRINT 
230 PRINT MOVE NUNBER?A 
266 PRINTO107,¥ 
279 PRINTO256 AS: SOUND 31,1 
280 PRINT:PRINT°WHICH NUMBER TG SW] TCHEROG?” 
290 IF INKEY$ <3"" THEN 290 
300 CH=TRKEYS 
510 R=VALIC$) 
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260 


320 IF R¢} OR RB THE 300 

330 Bg"? 

340 FOR T=9 TO R STEP ~1 

350 BeeBStHID$ AS, 7, 1) 

360 NEXT T 

370 AS=LEFTS(AS,R-1} +S 

380 RETURN 

370 PRINT!PRINT: PRINT 

400 PRINT A$ 

416 PRINTSPRINT: PRINT 

420 PRINT*YOU DID ET, CHARP!” 

430 PRINT:PRINTARD IT TOOK JUST*H’MOVES...° 
435 IF 8=1 THER H=W 

440 FF MCH THEN H=é 

450 PRIRT "LOW SCORE-"H 
440 FOR T=1 TO 3000:NEXT, 
470 S0TO 20 a 


=p in a. i il 
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| | CREATING GAMES 


You may well find, after you’ve been programming for some time, 
that although you've got many of the skills you need to write games of 
your own, you're a little short on ideas. If that’s the case, you should 
find this section of the book of interest to you. I'm going to outline a 
number of games which seem to me to be ideal for conversion to 
computer games, ; 


[) Unless you’re con- 
verting a well-known game, such as checkers, when your program will 
be expected to coincide in every respect with the non-computer ver- 
sion, you do not need to ensure that your computer developments of 
these ideas slavishly follows the outlines here. You'll probably find 
that, after a certain degree of development, the game takes off on its 
own, and may well end up in due course bearing little resemblance to 
its “parent.” This is all to the good. re 
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| |GAMES TO ADAPT 


SHUFFLEBOARD: Players slide flat, circular pieces along a board 
toward a triangular “target” which contains painted circles with num- 
bers on them. A piece ending up entirely within the numbered circle 
gives the player the score of that number. There are many possible 
variations of this, including darts-like target games. Once you get a 
shuffleboard program running, you may well find that only cosmetic 
changes are needed to convert it into a ten-pin bowling game. 


MU-TORERE: This game, which originated among the Maoris in 
New Zealand, is played on a board shaped like an eight-pointed star, 
with each point of the star joined to a circle in the middle. This circle 
is called the putahi. The players start with four pieces each, which are 
placed on the outside points, with all of one player’s pieces occupying 
points next to each other. The aim of the game, as in the last two 
we've discussed, is to make it impossible for a player to move. You 


can move from one point to an adjacent empty point, or from the 
putahi to any vacant point. The third possible move is from a point to 
the putahi, but this move can only be made if at least one of the 
points immediately adjacent to the one from which you intend to 
move is occupied by an opponent’s piece, 


HORSESHOE: Starting with a board like this, with one player’s 
pieces at the positions marked A, and one at those marked B, the 
players take it in turns to move along a line to a vacant spot: 


A A 
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The game ends when a player discovers he or she (or it) cannot move. 


Despite its simplicity, this is an interesting game, as you'll discover 
when you play it. 


DAMOCLES: This game is like HORSESHOE, but uses a larger 


board, and three pieces per player. The aim of the game is the same 
as HORSESHOE, and uses this board: 


BINGO: This game is usually played with cards marked with num- 
bers, which are crossed off as numbers are drawn at random from a 
pool, the winner being the player who first crosses off five in a row on 
his card, in any direction. It can be greatly simplified for computer 
use, with the computer generating two “cards” at random, using num- 
bers from 0 to 99, and printing them on a five by five grid. The 
computer can then choose numbers at random from 0 to 99, and do 
the crossings off, and look for possible wins. The program can be 
made more interesting to look at by, instead of just generating a ran- 
dom number, including two “dials” with spinning arrows. The first 
dial, the “tens,” is marked from zero to nine, and this is spun first 


The second dial is marked the same as the first one, except that it 
represents the “ones.” 


Pap an ueensene aM AAPL: 


Dice Games 


As I said in the notes regarding the dice games in the dice section 
of this book, you should find dice games relatively easy to program on 
your computer, especially if the computer is not expected to exhibit 
teo much intelligence when playing. There are a number of dice 
games which you may wish to try and adapt for computer play, in- 
cluding: 


DROP DEAD: You need five dice for this. The dice are thrown by 
the first player, and any which show two or five are removed. The 
total of the rest is written down, and the dice which fell with a two or 
a five are thrown again. After this throw, the dice landing two and five 
are removed, and the total of the remaining dice is added to the total 
from the first throw. This process continues until there are no dice 
left, at which point that particular player’s move ends, It is then 
player two’s go, and the same procedure is followed. The winner is 
the player with the biggest total after both have had their throws. You 
can make the game the best of, say, three rounds, or limit the total 
number of thraws any player can Dave per go, regardless of how 
many dice he or she has left. 
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MARTINETTI: You need three dice for this, and a score sheet 
marked with a row of boxes marked from 1 to 12, and two tokens, one 
each for you and the computer. You are aiming to traverse the num- 
bers in order, before your opponent manages to do so. Each player 
takes it in turn to throw the dice. If the throw contains a one, the 
player’s token can be placed in the one square. If the first throw also 
contained a two, the token could be moved into the two, After box 
one, players can either take the pip shown on an individual die for a 
move, or can add together the pips showing to get a desired number, 
A variation of this game (often called EVEREST) is to “climb down” 
through the numbers, after 1 through 12 has been achieved. The win- 
net of EVEREST is the first player getting back to base camp on one. 


INDIAN DICE: This game is similar te POKER DICE and is played 
with five dice. The aim is simply to get the best possible “poker 
hands.” There is no provision for getting additional “cards” in one 
deal. You throw the five dice at once, and that is your hand. The 
ranking of the hands is as follows (with six highest and ones wild): 


* five of a kind 


* four of a kind 


¢ full house (three of a kind plus a pair) 
* two pairs “ 
* one pair 

* highest die 


BIDOU: This game is also similar to POKER DICE, however, you 
aim to get rid of all your chips, rather than win them. The winner of 
the game is, paradoxically, the person who has lost the most rounds. 
You need three dice for this game, and a supply of chips which are 
distributed equally between the two players. A bet is made, and 
matched, before the players take it in turns to throw the three dice. 
The throws are ranked as follows, with “winning throws” coming first: 


; 221; 421; 66 
222; 111; 33 
Camere ies ae) tae UO Ma «ee He 
432; 543; 65 
If the combination thrown is not in the list, the pips are added, with 
the highest total winning. 


BARBOOTH: Also known as BARBUDI, this game is played with 
two dice, and features winning and losing throws. It is suggested you 
start with a bank of 30 chips, and give both players a starting stake of 
15 chips each, charging two chips per player per round. The players 
take it in turns to throw the dice. Winning throws are 3 3; 5 5; 6 5; 
and 6 6. Losing throws are 1 1;2 2;2 1 and 4 4, If the players both 
get winning throws, the one closest to the start of the list wins (that is, 
3 3 is better than 6 6), If both throw the same winning throw, the 
bank gets the money. If one player throws a combination which is not 
a winning one or a losing one, and the other throws a losing throw, the 
loser’s chips go into the bank, and the other player retains his or her 
chips. 

If one player throws a winning throw, and the other a non-rank- 
ing combination, the winner gets his own chips back, as well as those 
bet by the loser. If, however, one player throws a winning combina- 
tion, and the other a losing combination, the bank contributes the 
same number of chips as have been bet in total. The game continues 
until either player, or the bank, runs out of chips. The player holding 
the maximum number of chips at this point wins. Note that this way 
of distributing the wins and losses is not the same as BARBOOTH 
when played as a ‘professional’ gambling game, but is a pay-off 
scheme which is relatively easy to computerize, and makes for an 
interesting game. 


FIVE THOUSAND: There are no prizes for guessing that the first 
player to score over 5000 points in this game is the winner. Played 
with as many players as you like, all you'll need in the way of game 
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equipment is five six-sided dice. Each player takes it in turn to throw 
the five dice, and scoring is carried out in the following way: 

« A 5 is worth 100. 

* A 2 is worth 50, 

* Three 5’s thrown in one go are worth 1000. 

* Three 2's thrown in a go score 500. 


* Three of a kind (apart from 2's and 5’s) are worth 100 times 
their value (that is, three 1’s are worth 100 points, and three 6's 
are worth 600). 


* If the sequence 1, 2, 3, 4, and § is thrown in a single go, this 
scores 1500. 


+ 2, 3, 4, 5, and 6 in one throw are worth 2000 points. 


Note that 4’s and 6’s do not score in this game, except as part of a 
sequence. Once you’ve thrown, you can—-if you like-—-throw the non- 


ends, and the overall score for the throw is zero. So long as a scoring 
throw has been made, any dice “left over” can be thrown. 

The game rewards the slow and careful player with a reasonable 
score, but gives him or her no chance against a player who decides to 
take a chance and try to get a massive score in a single throw. 


Card Games 


Once you've worked out a routine to get the computer to hold, 
shuffle, and deal the cards you have the raw bones of a host of 


games. Any book of card games will give you more ideas than you can 
possibly cope with. Here are a few to start you off: 


TRENTE AND QUARANTE: This game, which originated in 17th 
century Europe, is also known as ROUGE ET NOIR. Six decks of 
cards are used in the casino version, but it works well with a single 
deck. The cards are dealt into two rows, with the total of each row 
being examined after each row has had an additional card. Face cards 
Gack, queen, king) count as ten, with ail other cards (including the 
ace) counting as their face value. The moment the total of a row 
equals or exceeds 31, no more cards are added to that row. However, 
the dealer keeps adding to the other row until it, too, equals or ex- 
ceeds 31. The first row is called “black,” regardless of the suits of the 
cards involved, and the second row is “red.” 

You can bet that, at the end, the red row or the black row total 
will be closer to 31. You can also bet that the color of the first card to 
be dealt will match the color name of the winning row. All bets are 
made against the bank, and winners receive their bet back, plus that 
amount again (odds of one to one), If both rows equal 31, the bank 
takes half the stake and returns the rest to the player. 
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CARD CRAPS: This game was devised to get around laws passed by 
some US States which outiawed craps played with dice. You use a 
special deck of 48 cards, made up from the aces, 2’s, 3’s, 4’s, 5’s, and 
6’s, from two decks of cards. The game follows the standard rules of 
craps (which are similar to those used in the game SEVEN/ELEVEN 
in this book). 

In its simplified form, without the somewhat complex betting 
combinations, you play as follows: 


* A total of 2, 3 or 12 is “craps” and the dealer loses, passing the 
cards to the next player to deal. 


» A total of 7 or 11 is a “natural” and the dealer wins. 


¢ Any other number (4, 5, 6, 8, 9, or 10) is the player’s “point” 
and he or she must continue dealing in pairs until the point is 
dealt again, at which point the dealer wins. However if a 7 is 
dealt before the point is obtained, the dealer loses. 


THREE CARD BRAG: This game was the forerunner of poker, and 
as ity name suggests, it is played with hands of three, rather than five, 
cards. Here are the winning combinations, ranked from highest to 
lowest: 


“Pryle,” three of a kind 


“On a bike,” three in sequence from the same suit 


* 


* 


“Run,” three cards in sequence 


“Flush,” three cards from the same suit 
“Pair,” two of a kind 
“High card” 


A normal deck is used, and aces rank high, except for “on a bike” and 
“run,” when 3, 2, ace beats ace, king, queen. You can vary the game 
by making it SEVEN CARD BRAG, in which the players split their 
seven cards into two three-card hands of their choice, or NINE CARD 
BRAG, when three hands are created. 


ACE-DEUCE-JACK: This is a simple game, heavily loaded in the 


dealer's favor, in which players bet on the likelihood that the next 
card which appears will be an ace, a two (a “deuce”), or a jack. 
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OOO ————————— 


PUT AND TAKE: This gambling game uses an eight-sided top, 
which is spun. The game begins with all players having 10 chips, with 
30 in the pot. The players take it in turn to spin the top, and—obey- 
ing the instructions which come up on the top—put chips into the pot, 
or take them out. A player is out when he or she runs out of chips, 
and the game ends when the pot is empty. The instructions written on 
the sides of the top are: 


* PUT ONE 

* TAKE ONE 

* PUT THREE 

* TAKE THREE 


* PUT FOUR 

* TAKE FOUR 
* PUT ALL 

* TAKE ALL 


BOULE: This is a simplified form of roulette which appeared in the 
18th century. It is often found in European casinos. The wheel is 
divided into 18 segments, numbered from one to nine, twice. You can 
bet on the winning number, whether it will be a red or a black num- 
ber, even or odd, high or low. Except for the fives on the wheel, which 
are usually yellow, the reds and blacks alternate, so that there is, for 
example, a red six and a black six, a red nine and a black nine, and so 
on. A “high” number is above five, while “low” numbers are below it. 
If you bet successfully on a single number, you'll be paid at seven to 
one, with a one to one return on the “characteristic” of a number (such 
as its being “high” or “odd”. 
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Glossary 


Accumulator—part of the computer’s logic unit which stores the inter- 
mediate results of computations 


i ru E 
ik ‘ih 
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Address—a number which refers to a location, generally in the com- 
puter’s memory, where information is stored 


Aigorithm—the sequence of steps used to solve a problem 


Alphanumeric—generally used to describe a keyboard, and signifying 
that the keyboard has alphabetical and numerical keys. A numeric 
keypad, by contrast, only has keys for the digits one to nine 
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APL—this stands for Automatic Programming Language, a language 
developed by Iverson in the early 1960s, which supports a large set of 
operators and data structures. It uses a non-standard set of characters 


Application software—these are programs which are tailored for a 
specific task, such as word processing, or to handle mailing lists 


ASCII-—stands for American Standard Code for Information Inter- 
change. This is an almost universal code for letters, numbers, and 
symbols 


Assembler—this is a program which converts another program writ- 
ten in an assembly language (which is a computer program in which a 
single instruction, such as ADD, converts into a single instruction for 
the computer) into the language the computer uses directly 


BASIC—stands for Beginner’s All-purpose Symbolic Instruction 
Code, the most common language used on microcomputers. It is easy 
to learn, with many of its statements being very close to English 


Batch—-a group of transactions which are to be processed by a com- 
puter in one lot, without interruption by an operator 


Baud—a measure of the speed of transfer of data. It generally stands 
for the number of bits (discrete units of information) per second 


Benchmark—a test which is used to measure some aspect of the per- 
formance of a computer, which can be compared to the result of run- 
ning a similar test on a different computer 


Binary—a system of counting in which there are only two symbols, 0 
and 1 (as opposed to the ordinary decimal system, in which there are 
ten symbols, 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9). Your computer “thinks” in 
binary 

Boolean Algebra—the algebra of decision-making and logic, devel- 


oped by English mathematician George Boole, and at the heart of 
your computer’s ability to make decisions 


Bootstrap——a program, run into the computer when it is first turned 
on, which puts the computer into the state where it can accept and 
understand other programs 


Buffer—a storage mechanism which holds input from a device such as 
keyboard, then releases it at a rate which the computer dictates 


Bug—an error in a program 


Bus—a group of electrical connections used to link a computer with 
an ancillary device, or another computer 


Byte—the smallest group of bits which makes up a computer word, 
Generally a computer is described as being “8 bit” or “16 bit,” 
meaning the word consists of a combination of eight or sixteen zeros 
or ones 

Central Processing Unit (CPU)—the heart of the computer, where 
arithmetic, logic, and controt functions are carried out 


Character code—-the number of ASCII (see ASCID which refers to a 
particular symbol, such as 32 for a space and 65 for the letter “A” 


COBOL—stands for Common Business Oriented Language, a stan- 
dard programming language, close to English, which is used primarily 
for business 

Compiler—a program which translates a program written in a high 
level (human-like) language into a machine language which the com- 
puter understands directly 

Concatenate—to add (adding two strings together is known as “con- 
catenation”) 

CP/M—stands for Control Program/Microcomputer, an almost uni- 
versal disk operating system developed and marketed by Digital Re- 
search, Pacific Grove, California 


Data~—a general term for information processed by a computer 


Database—a collection of data organized to permit rapid access by 
computer 
Debug—to remove bugs (errors) from a program 


Disk—a magnetic storage medium (further described as a “hard disk,” 
“floppy disk,” or even “fioppy”} used to store computer information 
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and programs. The disks resemble, to a limited extent, 45 rpm sound 
records, and are generally eight, five and a quarter, or three inches in 
diameter, Smaller “microdisks” are also available for some systems 


Documentation—the written instructions and explanations which ac- 
company a program 


DOS—stands for Disk Operating System (and generally pronounced 
“doss”), the versatile program which allows a computer to control a 
disk system 


Dot-matrix printer—a printer which forms the letters and symbols by 
a collection of dots, usually on an eight by eight, or seven by five, grid 


Double-density—adjective used to describe disks when recorded 
using a special technique which, as the name suggests, doubles the 
amount of storage the disk can provide 


Dynamic memory—computer memory which requires constant re- 
charging to retain its contents 


EPROM-— stands for Erasable Programmable Read Only Memory, a 
device which contains computer information in a semi-permanent 
form, demanding sustained exposure to ultra-violet light to erase its 
contents 


Error messages—information from the computer to the user, some- 
times consisting only of numbers or a few letters, but generally of a 
phrase (such as “Out of memory”) which points out a programming or 
operational error which has caused the computer to halt program ex- 
ecutions 


Field—A collection of characters which form a distinct group, such as 
an identifying code, a name or a date; a field is generally part of a 
record 


File—A group of related records which are processed together, such 
as an inventory file or a student file 


Firmware—The solid components of a computer system are often 
called the “hardware,” the programs, in machine-readable form on 
disk or cassette, are called the “software,” and programs which are 
hard-wired into a circuit are called “firmware.” Firmware can be al- 
tered, to a limited extent, by software in some circumstances 


Flag—this is an indicator within a program, with the “state of the 
flag” (i.e:, the value it holds) giving information regarding a particular 
condition 


Floppy disk—see “disk” 


Flowchart—a written layout of program structure and flow, using 
various shapes, such as a rectangle with sloping sides for a computer 
action, and a diamond for a computer decision, A flowchart is gener- 
ally written before any lines of program are entered into the computer 


FORTRAN—a high level computer language, generally used for sci- 
entific work (from FORmula TRANslation) 


Gate—a computer “component” which makes decisions, allowing the 
circuit to flow in one direction or another, depending on the conditions 
to be satisfied 


GIGO—acronym for “Garbage In Garbage Out,” suggesting that if 
rubbish or wrong data is fed into a computer, the result of its process- 
ing of such data (the output) must also be rubbish 


Global—a set of conditions which affects the entire program is called 
“global,” as opposed to “local” 


Hard copy—information dumped to paper by a printer 


Hardware-—the solid parts of the computer (see “software” and “firm- 
ware”) 


Hexadecimal!—a counting system much beloved by machine code 
programmers because it is closely related to the number storage meth- 
ods used by computers, based on the number 16 (as opposed to our 
“ordinary” number system which is based on 10) 


Hex pad—a keyboard, somewhat like a calculator, which is used for 
direct entry of hexadecimal numbers 


High-level languages—programming languages which are close to En- 
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glish. Low-level languages are closer to those which the computer un- 
derstands. Because high-level languages have to be compiled into a 
form which the computer can understand before they are processed, 
high-level languages run more slowly than do their low-level counter- 
parts 


Input—any information which is fed into a program during execution 


V/O—stands for Input/Output port, a device the computer uses to 
communicate with the outside world 


Instruction—an element of programming code, which tells the com- 
puter to carry out a specific task. An instruction in assernbler lan- 
guage, for example, is ADD which (as you've probably guessed) tells 
the computer to carry out an addition 


Interpreter—converts the high-level (“human-understandable”) pro- 
gram into a form which the computer can understand 


Joystick—an analog device which feeds a signal into a computer 
which is related to the position which the joystick is occupying; gener- 
ally used in games programs 


Kilobyte—the unit of language measurement; one kilobyte (generally 
abbreviated as K) equals 1024 bits 


Line printer—a printer which prints a complete line of characters at 
one time 


Low-level language—-a language which is close to that used within the 
computer (see “high-level language”) 


Machine language—the step below a low-level language; the lan- 
guage which the computer understands directly 


Mainframe—the term for “giant” computers such as the IBM 370. 
Computers are also classed as minicomputer and microcomputer (such 
as the computer you own) 


Memory—the device or devices used by a computer to hold informa- 
tion and programs being currently processed, and for the instruction 
set fixed within a computer which tells it how to carry out the de- 
mands of the program. There are basically two types of memory (see 
“RAM” and “ROM”) 


Microprocessor—the “chip” which lies at the heart of your computer. 
This does the “thinking” 


Modem—stands for MOdulator/DEModutator, and is a device which 
allows one computer to communicate with another via the telephone 


Monitor—(a) a dedicated television screen for use as a computer dis- 
play unit; contains no tuning apparatus; (b) the information within a 
computer which enables it to understand and execute program in- 
structions 


Motherboard—a unit, generally external, which has slots to allow ad- 
ditional “boards” (circuits) to be plugged into the computer to provide 


facilities (such as high-resolution graphics, or “robot control”) which 
are not provided with the standard machine 


Mouse—a control unit, slightly smaller than a box of cigarettes, which 
is rolled over the desk, moving an on-screen cursor in parallel to se- 
lect options and make decisions within a program. “Mouses” work 
either by sensing the action of their wheels, or by reading a grid pat- 
tern on the surface upon which they are moved 


Network—a group of computers working in tandem 


Numeric pad—a device primarily for entering numeric information 
into a computer, similar to a calculator 


Octal—a numbering system based on eight (using the digits 0, 1, 2, 3, 
4, 5, 6, and 7) 


On-line—device which is under the direct control of the computer 


Operating system—this is the “big boss” program or series of pro- 
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grams within the computer which controls the computer’s operation, 
doing such things as calling up routines when they are needed and 
assigning priorities 


Output—any data produced by the computer while it is processing, 
whether this data is displayed on the screen or dumped to the printer, 
or is used internally 


Pascal—a high level language, developed in the late 1960s by 
Niklaus Wirth, which encourages disciplined, structured programming 


Port——an output or input “hole” in the computer, through which data 
is transferred 


Program—the series of instructions which the computer follows to 
carry out a predetermined task 


PILOT— a high-level language, generally used to develop computer 
programs for education 


RAM-—stands for “Random Access Memory,” and is the memory on 
board the computer which holds the current program. The contents of 
RAM can be changed, while the contents of ROM (Read Only Mem- 
ory) cannot be changed under software control 


Real-time—when a computer event is progressing in line with time in 
the “real world,” the event is said to be occurring in real time. An 
example would be a program which showed the development of a 
colony of bacteria which developed at the same rate that such a real 
colony would develop. Many games which require reactions in real 


time have been developed. Most “arcade action” programs occur in 
real time 


Refresh—The contents of dynamic memories (see “memory”) must 
receive periodic bursts of power in order for them to maintain their 
contents. The signal which “reminds” the memory of its contents is 
called the “refresh signal” 


Register—a location in computer memory which holds data 


Reset—a signal which returns the computer to the point it was in 
when first turned on 


ROM—see “RAM” 


RS-232—a standard serial interface (defined by the Electronic Indus- 
tries Association) which connects a modem and associated terminal 
equipment to a computer 


S-100 bus—this is a standard interface (see “RS-232”) made up of 


100 parallel common communication lines which are used to connect 
circuit boards within microcomputers 


SNOBOL—a high-level language, developed by Bell Laboratories, 
which uses pattern recognition and string manipulation 


Software—the program which the computer follows (see “firmware”) 


Stack—the end point of a series of events which are accessed on a last 
in, first out basis 


Subroutine—a block of code, or program, which is called up a number 
of times within another program 


Syntax—as in human languages, the syntax is the structure rules 
which govern the use of a computer language 


Systems software—sections of code which carry out administrative 
tasks, or assist with the writing of other programs, but which are not 
actually used to carry out the computer's final task 


Thermal printer—a device which prints the output from the computer 
on heat-sensitive paper, Although thermal printers are quieter than 
other printers, the output is not always easy to read, nor is the used 
paper easy to store 


Time-sharing—this term is used to refer to a large number of users, 
on independent terminals, making use of a single computer, which 
divides its time between the users in such a way that each of them 
appears to have the “full attention” of the computer 
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Turnkey system—a computer system (generally for business use) 
which is ready to run when delivered, needing only the “turn of a 
key” to get it working 


Volatile memory—a memory device which loses its contents when the 
power supply is cut off (see “memory,” “refresh,” “ROM,” and 
“RAM"™ 


Word processor—a dedicated computer (or a computer operating a 
word processing program) which gives access to an “intelligent type- 
writer” with a large range of correction and adjustment features 
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ASCII CODE TABLE 


ASCII 
CODE 
32 
33 
34 
35 


36 
37 
38 
39 
4p 
41 
42 
43 
44 
45 
46 
47 
48 
49 
5p 
5i 
52 
53 
54 
55 
56 
57 
58 
59 


6) 
61 


62 
63 


CHARACTER ASCII 
{Space} 64 
{ (exclamation point} 65 
“ (quote) 66 
(number or pound 67 
sign) 
$ (doloar) 68 
% {percent} 69 
& {ampersand) 70 
‘ {apostrophe} 71 
( (open parenthesis) 72 
} {close parenthesis} 73 
* (asterisk) 74 
+ (plus) 75 
, {comma) 76 
— (minus) 77 
. (period) 78 
/ (slant) 79 
0 8p 
1 81 
2 82 
3 83 
4 84 
5 85 
6 86 
7 87 
8 88 
9 89 
: {colon} 9p 
3 (semicolon) 91 
< {less than) 92 
= (equals) 93 
> (greater than} 94 


? {question mark) 95 


CHARACTER 
@ (at sign} 


N<XXE<CH" DUP VOZErAC-zTroOrNMS O & p> 


[ (open square 
bracket) 

\ {back slash) 

) (close square 
bracket) 

+ {up arrow) 

~~ {back arrow) 
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CHARACTER CODE 


NO. 


Relative 


76 192 2068 224 246 
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THE ULTIMATE VZ300 GAMES BOOK! 
Here’s a collection of more than 40 incredible games written just for you and 
your Dick Smith VZ300 Personal Colour Computer. 


In this book, you'll get all these, and more: 


ADVENTURE GAMES 


Battle with the forces of evil, rule as a duke, and search for hidden treasure in 
THE DUKE OF DRAGOMNFEAR and STRONGHOLD OF THE DWARVEN 
LORDS 


SIMULATION GAMES 
Control the fate of an entire planet or become the boss of your own firm in 
MISTRESS OF XENPHOBIA and CHAIRMAN OF THE BOARD 


BRAIN GAMES 
Unlock the twisted cube in CUBIC or race to locate an atom within the 
CYCLOTRON 


ARTIFICIAL INTELLIGENCE 


Chailenge your VZ300 to break your code or let it write you a whole book of 
poetry in ELECTRONIC BRAIN and AMANUENSIS 


BOARD GAMES 


Your VZ300 is a willing and clever opponent in classic board games including 
OTHELLO, CHECKERS, AWARI and GOMOKU 


SPACE GAMES 


Land your trusty VZ space probe on the moon or fight an intergalactic war with 
alien creatures in MOONLANDER and HYPERWAR 


PLUS MASTER THE SKILLS TO DEVELOP, MODIFY 
AND CREATE YOUR OWN VZ300 GAMES 


WARNING: 
This book may be habit-forming fun! _ 
X-7326 


